Código Delphi [-]repeat valor:=inputbox('Titulo','Dato a recibir',''); validacion...... until Trim(valor)<>''
repeat valor:=inputbox('Titulo','Dato a recibir',''); validacion...... until Trim(valor)<>''