インプットボックス InputBoxとはユーザーが文字列を入力できる入力ダイアログボックスを表示します。
procedure TForm1.Button1Click(Sender: TObject); Var Ret : String; //ユーザーが入力した文字列 begin Ret :=InputBox('InputBox', '検索する文字列を記入して下さい', 'サンプル'); Edit1.Text :=Ret; end;