После длительного гемороя Все получилось
пример
тут
var
h,sh,g: integer;
label
m2;
begin
m2:
application.ShowMainForm:=false;
sleep(10);
h:=FindWindow('#32770',nil);
If h > 0 then
sh:=FindWindowEx(h,0,'Static',nil);
g:= findwindowex(h,sh,'Static',nil);
SendMessage(g,WM_SETTEXT,0,lparam(LPCTSTR(' Свой текст ')));// меняем текст в окне
SetWindowText(FindWindow('#32770',Nil), 'Свой текст'); // меняем заголовок окна
if h = 0 then
Goto m2;
sleep(1000);
application.ProcessMessages;
exitprocess(0);
end;
end.