Anweisung erfolderlich, aber Ausdruck vom Typ Boolean?

[vagtler]

Und noch kürzer...

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Maximum: integer;
  Ausgabe: string;
begin
  Maximum := MaxIntValue([Zahl1, Zahl2, Zahl3]);
  if (Maximum = Zahl1) then
    Ausgabe := '1'
  else if (Maximum = Zahl2) then
    Ausgabe := '2'
  else
    Ausgabe := '3';
  label4.caption := Format('Zahl %s ist die größte Zahl', [Ausgabe]);
end;