var
str: PChar;
h: HWND;
hPanel1: HWND;
hPanel2: HWND;
hEdit1: HWND;
hEdit2: HWND;
begin
h := FindWindow('TCusForm',nil);
hPanel1 := FindWindowEx(h,0,'TPanel',nil);
hPanel2 := FindWindowEx(h,hPanel1,'TPanel',nil);
hEdit1 := FindWindowEx(hPanel2,0,'TEdit',nil);
hEdit2 := FindWindowEx(hPanel2,hEdit1,'TEdit',nil);
GetMem(str,100);
SendMessage(hEdit1,WM_GETTEXT,100,Integer(PChar(str)));
Edit1.Text := str;
SendMessage(hEdit2,WM_GETTEXT,100,Integer(PChar(str)));
Edit2.Text := str;
FreeMem(str,100);