клавиша delete

[andrey4623]

Известно, что код клавиши Delete 46.

Я пишу обработчик события TreeViewKeyPress:

var
index:integer;
begin
ShowMessage('');
if key = VK_DELETE then //В этой строке ошибка
if TrVwObject.Selected <> nil then
begin
HideAllPanel;
ClearForm;

index := TreeViewQuest.Selected.Index;
//Удаляем элемент из дерева вопросов
TreeViewQuest.Items.Delete(TreeView Quest.Selected);

//Удаляем элемент из списка
QuestionList.Delete(index);
//Если в дереве вопросов что-то меняется,
//то выводим кол-во вопросов
GroupBoxTreeQuest.Caption := 'Вопросы (' + IntToStr(TreeViewQuest.Items.Count) + ')';
PanelImage.Visible := TreeViewQuest.Items.Count <> 0;
end;

В чем дело? Как сделать так, чтобы при нажатии клавиши delete удалялся элемент из списка? Form1.KeyPreview = True

[_Dmitry]

Используйте событие OnKeyDown, т.к. OnKeyPress реагирует только на буквы и цифры (печатаемые символы).

[Stilet]

+1
К тому же у него переменка key типа char, а ты его сравниваеш с числом прото так.

[andrey4623]

спасибо !

[Квэнди]

chr(word)....

[andrey4623]

а у меня просто 46 сработала...

[Никки]

А я делаю обычно так: if ord(Key)=46 then....