[eXplorer]

если я правильно вас понял...

Код:

procedure TForm1.FormShow(Sender: TObject);
var
h:HWND;
begin
h:=FindWindow(nil, 'Form1');
SetWindowText((h),'Delphi World FOREVER!!!');
end;