关于虚拟键值的问题，请教高手们

在delphi的虚拟键值表里insert键是 VK_INSERT但是我这样做的结果是小键盘里的“-”有反应。
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in [chr(VK_DELETE)]) then
begin
  isInsert:=not isInsert;
  if isInsert = false then
  begin
  StatusBar1.Panels[3].Text:='覆盖';
  end else
  begin
  StatusBar1.Panels[3].Text:='插入';
  end;
end;
end;