InputBox i błędy

Chodzi mi o to że mam inputboxa i w nim ma być wartość liczbowa , jak ktoś wpisze tekst lubb cokolwiek innego to próbuje aż do skutku tyle że z każdym nie udaną próbą wpisu danych pojawia sie application.messagebox(o treśći że wystąpił błąd); i na nowo pojawia sie inputbox z prośba o podanie cyferki.

var
S : String;
begin
repeat
S := InputBox('Witaj', 'Cze', '');
if (Length(S) 1) or (Ord(S[1]) > Ord('9')) or (Ord(S[1])

try
//tutaj instrukcje

except on EConvertError do

MessageBox(..)
if id=yes then
InputBox(..)

end;