كيفية تمرير قائمة من السريلات لاي برنامج

[cargem]

رائع جدا
لكن اذا كان هناك 2 edits
كيف الحل؟

procedure TForm1.Button1Click(Sender: TObject);
var Fr , Ed : THandle ; Text : String;
begin
Text := Edit1.Text ;
Fr := FindWindow('Notepad',nil);
Ed := FindWindowEx(Fr,0,'Edit',nil);
SetLength(Text,Max_Path);
SendMessage(Ed,WM_SETTEXT,Max_Path,longInt(@Text[1]));
end;