为什么我在Delphi6中在TreeView中KeyUp事件中写程序没有反应？(20分)

procedure TfrmMainForm.TreeViewKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=RBUTTON then
ShowMessage('test');
end;
上述程序单击右键为什么没有反应，请各位指点指点！

KeyPreview := True;