[lmikle]

Я тебе в другой ветке ответил.
Думаю так пройдет (нет под рукой, что бы проверить):

Код:

function HConvert(E:TEdit; var H:Byte):Boolean;
var Hp:Byte; S:AnsiString; Error:Boolean;
begin
 Hp:=H; Result:=true;
 Error:=false;
 S := E.Text;
 S:=AnsiUpperCase(S);
 If Length(S) = 1 Then
   Begin
     if ConvD(S[1])>=0 then H:=ConvD(S[1])
                       else Error:=true;
   End;