Problem mit einfügen einer function in procedure

[Sir Rufo]

Besser so:

Delphi-Quellcode:

function TGaskosten.erdgaspreisberechnen(a: real): real;
  begin
    Result := 0;

    // Grundgebühr
    if a < 2000 then
      Result := Result + 210;

    // Verbrauch
    if a > 400 then
      Result := Result + a * 0.255
    else if a > 150 then 
      Result := Result + a * 0.000 // Nach deinen Vorgaben geschenkt
    else 
      Result := Result + a * 0.344;

    // Mehrwertsteuer
    Result := Result * 1.19;

  end;