Mehere Werte auf gleichheit überprüfen

[xZise]

Ich würde gerne mehere Werte auf gleichheit hin überprüfen!

Ungfähr so:

Delphi-Quellcode:

var Value : array [1..3] of Byte;
{...}
if Value[1] = Value[2] = Value[3] then
  Showmessage('Subba! Alle Werte sind gleich!')

Da mekert wer rum!
Gibt es schon eine Funktion? Oder muss ich die mir selber machen:

Result := (Value[1] = Value[2]) and (Value[2] = Value[3]) (Aso: Bei 3 Werten geht es noch, aber wer weiß ... wie es nachher bei 10 oder 20 Werten ist?)