Как изменить текст в поле другого окна?

Mnd:=FindWindow(nil,Pchar('Заголовок главной формы') );
if mnd<>0 then begin
ZeroMemory(@buf,sizeof(buf));
wnds[1]:=GetWindow(mnd,GW_CHILD);
GetWindowText(wnds[1],@buf,sizeof(buf));
i:=1;
while wnds[i]<>0 do begin
i:=i+1;
wnds[i]:=GetWindow(wnds[i-1],GW_HWNDNEXT) ;
GetWindowText(wnds[i],@buf,sizeof(buf));
end;