[deltas]

Нужно получить Handle нужного контрола и передать ему SendMessage

Код:

procedure TForm1.Button1Click(Sender: TObject);
var wind,ediwind:HWND;
begin
wind:=findwindow('класс','имя');
editwind:=findwindowex(wind,0,'класс','имя');
sendmessage(editwind,wm_settext,0,lparam(pchar('text')));
end;

или как-то так