Changer le nom de la fenêtre d'une autre application

procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowText(FindWindow('notepad',nil),'Test');
end;