Delphi: проверьте, уникальны ли значения в массиве (или значения переменных) одновременно

Мне нужно проверить, являются ли значения некоторых переменных уникальными. Это образец/пример для 4 переменных, но я ищу что-то универсальное, чтобы оно работало с 3, 5 и т. д. переменными. Я могу написать код, сравнивающий переменные, например:

var
  A, B, C, D : Integer;
begin
  ...
  if (A <> B) and (B <> C) and (C <> B) and ... then
    ShowMessage('are unique');
end;

Есть ли более короткий способ сравнить все значения? Я имею в виду что-то вроде:

var
  A, B, C, D : Integer;
begin
  ...
  if UniqueValues([A, B, C, D]) then
    ShowMessage('are unique');
end;