[AndrYxo]

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

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