Ещё правки в VCL (8)

function IsAccel(VK: Word; const Str: string): Boolean;
begin
  //Result := CompareText(Char(VK), GetHotKey(Str)) = 0;
  Result := AnsiSameText(Char(VK), GetHotKey(Str)); {V}
end;