[[felipe88]]

Y que tal si usas el input query...?????
Código Delphi [-]Procedure... Var varaible: tipo_dato Begin InputQuery('titulo_que_quieres','mensaje_al_lado',varable); End;