If (YouLoveVCL = true) then TReadThisNow.Create();

[Sir Rufo]

Eigentlich müsste der Code ja lauten

Delphi-Quellcode:

while not Tux.Satt do
begin
  Fisch := TFisch.Create;
  try
    Tux.Esse( Fisch ); // mögliche Exception ETuxKotzt
  finally
    Fisch.Free;
  end;
end;