InputBox???

[sakura]

Hier ist die Lösung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  InputData: string;
begin
  InputData := 'Die Standardantwort...';
  if InputQuery('Die Überschrift', 'Der Prompt', InputData) then
    ShowMessage('ja: ' + InputData)
  else
    ShowMessage('nein');
end;

......

P.S.