Еще можно так (способ из очень далёкого прошлого, когда не было функции IntToStr):
Код:
var C:char
begin
C:=edit1.Text[1];
case Ord(C)-$30 of
1:label1.Caption:='Один';
end;
end;
или так:
Код:
var C:char
begin
C:=edit1.Text[1];
case C of
#$31:label1.Caption:='Один';
end;
end;