Hola,
puedes usar la función
InputBox, pero personalmente no me gusta la ventana que mustra esta función,
y puedes crear una función, que se encargue de crear el formulario y devuelva el valor del mismo.
Ejp:
Supon que FormularioEntrada tiene una variable pública llamada Resultado,
de tipo String.
Código Delphi
[-]
function ValorTecleado: String;
begin
FormularioEntrada := TForm.Create(Application);
try
if (FormularioEntrada.ShowModal = mrOK)
then Result := FormularioEntrada.Resultado
else Result := '';
finally
FormularioEntrada.Free;
end;
end;
Adáptalo a tus necesidades....