Hvori består fejlen i denne kode ?

Kære Eksperter;

Jeg har gået denne kode igennem rigtig mange gange, men jeg kan simpelthen ikk finde fejlen!
Der opstår vist fejl, når jeg skal finde diagonalen...


procedure Firkant;
var
  Laengde, Bredde, Areal, Diagonal: Double;

  procedure Firkantberegning (l, b: Double; var a, d : Double);
  begin
    a := l*b;
    d := sqrt(power(l, 2), power(b, 2));
  end;

begin
  Laengde := StrToFloat(Form1.Edit7.Text);
  Bredde := StrToFloat(Form1.Edit8.Text);
  FirkantBeregning(Laengde, Bredde, Areal, Diagonal);
  Form1.Edit9.Text:=FloatToStr(Areal);
  Form1.Edit10.Text:=FloatToStr(Diagonal);
end;