Anweisung erfolderlich, aber Ausdruck vom Typ Boolean?

[DeddyH]

Und kürzer geht das auch noch

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Maximum: integer;
  Ausgabe: string;
begin
  Maximum := Zahl1;
  Ausgabe := 'Zahl 1';
  if Zahl2 > Maximum then
    begin
      Maximum := Zahl2;
      Ausgabe := 'Zahl 2';
    end;
  if Zahl3 > Maximum then
    begin
      Maximum := Zahl3;
      Ausgabe := 'Zahl 3';
    end;
  label4.caption := Ausgabe + ' ist die größte Zahl!'
end;