[delphi.com.ar]

Este es un breve ejemplo:

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