procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowText(FindWindow(nil, 'Безымянный - Блокнот'),
    'Delphi World FOREVER !!!');
end;