[Sahan911]

Доброго времени суток! Понадобилось в обработчике Edit`а OnKeyDown при выполнении определенных условий запретить ввод в него текста.(сделал я это через Key := 0) ,но по какой - то причине он все равно текст вводит( KeyPreview у формы стоит True). Пробовал так делать даже совсем без условий: тупо напрямую

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
key := 0;
end;

Все равно ничего. Помогите не ни как не разберусь в чем дело.