пример

procedure TMyForm.Button1Click(Sender: TObject);
var h,sh: integer;
begin
h:= FindWindow(nil, 'SSS'); //находим окно по капшену
//SetWindowText(h, 'Ну, ты попал...'); //можно поменять капшен
Label1.Caption:=IntToSTr(h);//выводим хэндл окна
sh:= FindWindowEx(h,0,0,'Edit1'); //находим edit по тексту в нем
Label2.Caption:=IntToSTr(sh);//выводим хэндл эдита
SendMessage(sh, WM_SETTEXT, 0, LParam(PChar('MyText222')));//засылаем новый текст в эдит
Application.ProcessMessages;
end;