Abstandsberechnung zwischen 2 Städten

[mr____zero]

zum einen sorry für doppelpost aber es stellt sich erneut ein kleines problem^^
mag sein das ich schon ne bissle blind bin aber ich finde den fehler net

hab das ganze mal in ein mini prog gepackt aber das liefert mir bei einer strecke von düsseldorf nach berlin eine die distanz 140km
was nicht sein kann

hier mal so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var lange1,lange2,breit1,breit2,strecke :extended;
begin
    lange1 := Strtofloat(edit1.Text);
    lange2 := Strtofloat(edit3.Text);
    breit1 := Strtofloat(edit2.Text);
    breit2 := Strtofloat(edit4.Text);


    strecke := arccos((sin(breit1)*sin(breit2))+(cos(breit1)*cos(breit2)*cos(lange2-lange1)))/360*40000 ;

    edit5.Text := floattostr(strecke);
end;

ed:mit dem taschenrechner funzt das 1a