Crear Formulario que me devuelva un valor

[defcon1_es]

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....