Ein Popup erscheinen lassen

[divBy0]

Vielleicht reicht dir ja das schon aus.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Eingabe: String;
begin
  InputQuery('Überschrift', 'Eingabebeschreibung', Eingabe);
end;