Delphi - Validar datos de un inputbox mediante ciclos delphi 7

Buenas. Necesito validar los datos de entrada de un inputbox mediante un ciclo while, de tal manera que lo que se ingrese en el inputbox sean solo numeros mayores que 0 y ningun caracter, asi luego convierto con StrToInt el contenido del inputbox para asignarlo a una varible entera. la idea es forzar al usuario a que ingrese un valor numerico mayor a 0 y ningun caracter, mostrandole un ShowMessage en caso de hacerlo y utilizando un ciclo como el while o el repeat con una variable booleana para salir del ciclo. adjunto mi idea del programa en el rar.