procedure TForm1.Button1Click(Sender: TObject); var PText : PChar; begin PText := PChar( Edit1.Text ); SetWindowText( Handle, PText ); end;