[[Delphius]]

Hola Gaim2205, Esto lo puedes conseguir con el InputBox. Un ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Rta: string;
begin
  Rta := InputBox('Titulo','Ingrese su nombre','');
  if Rta <> ''
     then ShowMessage('Su nombre es: '+Rta);
end;

Si quieres otros tipos de inputBox, por ejemplo: ingreso de numeros permitidos en un rago, tienes que agregar en el uses la unidad QDialogs y podrás hacer algo como esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Rta: integer;
begin
  Rta := InputBox('Titulo','Ingrese su edad',18,1,1000);
  // Edad mínima: 1
  // Edad máxima: 1000! :-)
  ShowMessage('Su edad es: '+IntToStr(Rta));
end;

Saludos,