Massenanziehungsberechnungsfehler.

[Muddy]

Was ist in diesem Teil des Quellcodes falsch?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a, b, s, F: double ;
begin
    a := strtofloat (edit1.Text) ;
    b := strtofloat (edit2.Text) ;
    s := strtofloat (edit3.Text) ;
    F := (6.670 * 10 * sqr(s))* a * b / sqr((6.670 * 10  * sqr(s))
    edit4.text := floattostr (F);
end;

Ich bekomme vom Programm einen Fehler in diesem Code angezeigt, weiß aber nicht was ich ändern muss.

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst setzen Mfg, SirThornberry[/edit]