[cloayza]

Usa inputQuery...

Código Delphi [-]
var
  valor : string;
  ok, lDone : Boolean;
begin
     repeat
          lDone := InputQuery('Titulo','Dato a recibir',Valor);
          ok    := valor = 'un texto';  // una validación cualquiera
     until lDone=False or ok;
end;

Saludos cordiales