Fórum CALCULAR DISTANCIA EM KM ENTRE AEROPORTOS #408468

Estou desenvolvendo um sistema que tenho que calcular a distancia entre aeroportos, achei uma função que calcular mas esta função esta dando um diferença muito grande entre os sites que fazem este calculo, gostaria de saber se alguem tem alguma função que o calculo seja mais preciso, vou colocar aqui a função que eu achei mas não é precisa.

function TFormCalculaDistancia.calcDistancia(LatIni, LonIni, LatFim,
LonFim: Extended): Extended;
var
arcoA, arcoB, arcoC : Extended;
auxPI : Extended;
begin
auxPi := Pi / 180;

arcoA := (LonFim - LonIni) * auxPi;
arcoB := (90 - LatFim) * auxPi;
arcoC := (90 - LatIni) * auxPi;

// cos (a) = cos (b) . cos (c) + sen (b) . sen (c) . cos (A)
Result := Cos(arcoB) * Cos(arcoC) + Sin(arcoB) * Sin(arcoC) * Cos(arcoA);
Result := (40030 * ((180 / Pi) * ArcCos(Result))) / 360;
end;