>> 509 IsShortCutをオーバーライドして、
function TForm1.IsShortCut(var Message: TWMKey): Boolean;
begin
  if (ActiveControl is TTreeView) and (ActiveControl as TTreeView).IsEditing then
    Result := False
  else
    Result := inherited IsShortCut(Message);
end;