Быстрое сравнение многих переменных на совпадение

[DIgorevich]

В заголовке не знал, как более доходчиво написать. Все видели как работают в различных приложениях Хоткеи. Когда нельзя (либо можно, но будет предупреждение) одно и то же сочетание назначать разным действиям. У меня аналогичная ситуация: в приложении есть настраиваемые хоткеи (7 штук всего). Каждое сочетание, как известно хранится в цифровом виде (hotkey.hotkey). Прошу помочь с алгоритмом проверки всех семи хоткеев на несовпадения.
Сам могу только тупым перебором делать проверку, что не есть хорошо:

  If (HotKey1.HotKey<>HotKey2.HotKey) and (HotKey1.HotKey<>HotKey3.HotKey) and (HotKey1.HotKey<>HotKey4.HotKey)
      and (HotKey1.HotKey<>HotKey5.HotKey) and (HotKey1.HotKey<>HotKey6.HotKey)  and (HotKey1.HotKey<>HotKey7.HotKey)
  then
    //регистрируем хоткей
  else
    ShowMessage('Сочетание '+ ShortCutToText(HotKey1.HotKey)+' уже используется!');

И так семь раз?

[Аватар]

1. массив HotKey-ями, хранить в нем и в цикле проверять
2. В цикле по Components формы выбирать THotKey и проверять

[3D Hunter]

var
  LStr:AnsiString;
...
LStr:='';
for i:=1 to 7 do
with THotKey(FindComponent('HotKey'+IntToStr(i))) do
begin
  if Pos(IntToStr(HotKey),LStr)>0 then
  begin
    ShowMessage('Сочетание '+ ShortCutToText(HotKey)+' уже используется!');
    Break;
  end;
  LStr:=LStr+IntToStr(HotKey);
end;