[v1s2222]

Для этого используй функцию SendMessage. Описание думаю и сам сможешь найти.
А вот пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 s:Pchar;
 h:Hwnd;
begin
h:=findWindowEx(FindWindow(nil,'Имя формы'),0,'TLabel',nil);
s:=GetMemory(12);
SendMessage(h,WM_GetText,10,integer(s));
Showmessage(s);
FreeMemory(s);
end;