Wieso funktioniert diese boolsche Schleife nicht?

[BadenPower]

Wenn Du nur wissen möchtest, ob die Testauswertung 1x True ergeben hat, dann kannst Du auch die Schleife sofort verlassen.

Delphi-Quellcode:

function Test(i: Integer): Boolean;
begin
  ShowMessage('Zahl ist: ' + IntToStr(i));
  Result := (i mod 2) = 0; //Einfach etwas sinnloses, hauptsache gelegentlich True
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  b: Boolean;
begin
  b := False;
  for i := 0 to 8 do
   begin
    if (Test(i)) then
     begin
      b := true;
      break;
     end;
   end;

  ShowMessage(BoolToStr(b));
end;

Ist meiner Meinung nach noch effizienter.