Show a simple input form

If you need to get some information from user, you may use InputQuery function. This function will create a simple input dialog.

procedure TForm1.Button1Click(Sender: TObject);
var
  Str: string;
begin
  if InputQuery('MyProgram dialog', 'Input something', Str) then
    Caption:=Str;
end;