hace una input box en delphi?

[dec]

Hola,

La función sustituta sería "InputQuery":

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  userResponse: string;
begin

  repeat
    InputQuery('Write your name', 'Write your name', userResponse);
  until (userResponse <> '');

  ShowMessage(userResponse);
end;