Başka edite gelen veriyi almak

var
s:string;
len:integer;
 
begin
len := Sendmessage(handle, WM_GETTEXTLENGTH, 0, 0);
SetLength(S,len);
SendMessage(handle, WM_GETTEXT, len+1, lparam(@S[1]));