как поставить ограничение на ввод нуля?

[Dr.Swat]

здраствуйте) хотел бы узнать
как поставить ограничение на ввод нуля в edit?

буду признателен если поможете с вопросом

[W0LF]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = '0' then Key := #0;
end;

[Dr.Swat]

спасибо большое

[Dr.Swat]

еще хотел узнать,
как сделать ограничение тока на число нуль
а не на символ
чтобы можно было вводить
такие числа как, 0,1 0,2 900 7000 750

[W0LF]

удалено...

[ex.cluz]

Хм, задачка интересная...
Если вводимое значение целочисленное, то так (в обработчик события OnExit):

begin
  if StrToInt(Edit1.Text)=0 then Edit1.Clear; //ну или, например, Button1.Enabled:=false; смотря что понимать под "запретом"
end;

А если число дробное, то можно FloatToStr, а потом округлять до какого-то знака (исходя из точности вводимого значения).