Unterprogramme in Delphi 7 Felder ansprechen

[snboy2010]

Ok. Jetzt bin ich etwas weiter. Das Programm startet jetzt es wird aber immer ein komplett falscher Wert berechnet. So sieht es jetzt aus:

Delphi-Quellcode:

procedure VerbrauchBGes(var verb, jahrk : real);
  var verbj: real;
   begin
      verbj := verb * jahrk;
end;

procedure TForm1.Button1Click(Sender: TObject);
var verb, jahrk, verbj: real;
begin
    verb := StrToFloat(Edit3.Text);
    jahrk := StrToFloat(Edit4.Text);
    VerbrauchBGes(verb, jahrk);

    Panel1.Caption := FloatToStr(verbj);

end;

Wo habe ich jetzt meinen Fehler?