Allgemeine Fragen zu Delphi

[andiak]

Delphi-Quellcode:

Function TForm1.BerechnePreis( km: integer; var lieferpreis: extended): Boolean;
begin
  BerechnePreis := true;
  if km > 50 then
   begin
     BerechnePreis := false;
   end
  else
    if km < 5 then lieferpreis := 10
  else
    if km >25 then lieferpreis := 30  
  else
    if km > 5 then lieferpreis := 5 + km

so?`