[nixel]

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If key = #48 then Edit1.Enabled:= false; //key = VK_NUMPAD0 для нуля на цифровой клавиатуре
end;

Неужели так не работает?