Проблема с "delete"ом!

[SeregaIRK]

Допустим есть такая инструкция с выбором :

case key of
#8 : backspace.click;
end;

У делета код 0007F. Как он описывается ?
#007f - не канает!
Подскажите дорогие форумчяне!
Заранее благодарю!

[Stilet]

{$EXTERNALSYM VK_DELETE}
VK_DELETE = 46;

[FaTaL]

E Delete виртуал кей 46, но надо обрабатывать не в событие OnKeyPress, а в событии OnKeyDown или OnKeyUp и например

procedure TMainForm.ListBoxKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Case key of
46:{Ваша процедура};
end;