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;