[MegaPiha]

Сообщение от AndrYxo

А вот у меня еще вопросик - а можно как-то сделать, что бы при этой процедуре на Edit еще и BackSpace работал?

case Key of '0'..'9':;
else Key:=Chr(0);
end;

Код:

  case key of '0'..'9', #8:;
  else key :=chr(0);
  end;