события нажатие клавиш

[Karych]

procedure TMainF.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (KEY=VK_DELETE) and (length(Edit1.Text)=0) then  
begin
ListBox1.Visible:=false;
end;

Почему код исполняется только при 2-ом нажатии клавиши? при первом все стирается,но листбокс виден, второй раз нажымаешь и он невидим...

[Herly]

Если в листбоксе есть текст, то после первого нажатия условие

(length(Edit1.Text)=0)

примет значение false и код

begin
ListBox1.Visible:=false;
end;

не выполнится. Видимо далее в коде есть строка, которая очищает листбокс от текста и поэтому повторное нажатие приводит к выполнению программы.