Hi ich bin in Delphi blutiger Anfänger und habe ein Problem mit einem Programm zur Dreiecksberechnung das ich grade als Übung programmiere, hier der Quelltext
unit Dreieck;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
EditSeitea: TEdit;
EditSeiteb: TEdit;
EditFlaeche: TEdit;
EditUmfang: TEdit;
EditSeitec: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Dreieck2(a,b,c:Real;var Umfang,Flaeche:Real);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Dreieck2(a,b,c:Real ;var Umfang,Flaeche:Real);
var s : Real;
begin
Umfang:=a+b+c;
s:=Umfang/2;
Flaeche:=Sqrt(s*(s-a)*(s-b)*(s-c));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var Umfang,Flaeche,a,b,c : Real;
begin
a:=StrToFloat(EditSeitea.Text);
b:=StrToFloat(EditSeiteb.Text);
c:=StrToFloat(EditSeitec.Text);
EditUmfang.Text:=FloatToStr(Umfang);
EditFlaeche.Text:=FloatToStr(Flaeche);
Dreieck2(Umfang,Flaeche);
end;
end.
Bei der roten Zeile kommt folgende Fehlermeldung:"[Fehler] Dreieck.pas(68): E2035 Nicht genügend wirkliche Parameter"
Bitte um Hilfe!