Fehler-Anzeige: Not enough actual parameters

[icqgoofy]

Hallo zusammen,

in Informatik sollen wir einen "Taschenrechner" mit simplen
Methoden (nur Addition/Multiplikation) schreiben.
Vorgabe ist, dass die Lösungsvariablen nicht Werteparameter
sein dürfen, sondern Varibalenparameter sein müssen.

Ich habe das Programm nach den Vorgaben des Lehrers geschrieben,
genau wie wir alle aus dem Kurs.
Doch bei uns allen kommt jener Fehler.

Hier meine Unit:

Delphi-Quellcode:

unit Unit1;

interface

[...] //hab grad die uses rausgemacht, die betreffen ja das Problem nicht

type
  TFTaschenrechner = class(TForm)
   .... //hier stehen halt die Objekte
    procedure Berechnung(rZa1,rZa2: Real; var rSum,rProd: Real);
    procedure BErgebnis_AnzeigeClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FTaschenrechner: TFTaschenrechner;
  rSumme: Real;
  rProdukt: Real;

implementation

{$R *.dfm}

procedure TFTaschenrechner.Berechnung(rZa1,rZa2: Real; var rSum,rProd: Real);
begin
  rSum:=rZa1+rZa2;
  rProd:=rZa1*rZa2;
  rSumme:=rSum;
  rProdukt:=rProd;
end;


procedure TFTaschenrechner.BErgebnis_AnzeigeClick(Sender: TObject);
var rZahl1,rZahl2 : Real;
begin
  rZahl1:=StrToFloat(EZahl1.Text);
  rZahl2:=StrToFloat(EZahl2.Text);
  FTaschenrechner.Berechnung(rZahl1,rZahl2; var rSum,rProd: Real);  //hier tritt der Fehler auf
  EAddition.Text:=FloatToStr(rSumme);
  EMultiplikation.Text:=FloatToStr(rProdukt);
end;



end.

Über Hilfe wäre ich sehr dankbar;)

Gruß icqgoofy