Supongo que en la primera opción no has tenido en cuenta el modelo con el que trabajar.
La tierra no es exactamente redonda, por lo que para ciertas regiones del planeta se prefiere trabajar con un modelo de esfera distinto.
El segundo toma el modelo WGS84 y el primero tiene varios de los que elegir.
Código Delphi
[-]
Const ct_dga = 6378137; ct_dpa = 6356752.314; ct_UTMScaleFactor = 0.9996;
Código Delphi
[-]
Ellipsoid: array[TMapDatum] of TEllipsoid = (
(Name:'Airy'; a:6377563; b:6356257),
(Name:'Australian National'; a:6378160; b:6356775),
(Name:'Bessel 1841'; a:6377397; b:6356079),
(Name:'Bessel 1841 (Nambia) '; a:6377484; b:6356166),
(Name:'Clarke 1866'; a:6378206; b:6356583),
(Name:'Clarke 1880'; a:6378249; b:6356515),
(Name:'Everest'; a:6377276; b:6356075),
(Name:'Fischer 1960(Mercury)'; a:6378166; b:6356784),
(Name:'Fischer 1968'; a:6378150; b:6356768),
(Name:'GRS 1967'; a:6378160; b:6356775),
(Name:'GRS 1980'; a:6378137; b:6356752),
(Name:'Helmert 1906'; a:6378200; b:6356818),
(Name:'Hough'; a:6378270; b:6356794),
(Name:'International'; a:6378388; b:6356912),
(Name:'Krassovsky'; a:6378245; b:6356863),
(Name:'Modified Airy'; a:6377340; b:6356034),
(Name:'Modified Everest'; a:6377304; b:6356103),
(Name:'Modified Fischer 1960'; a:6378155; b:6356773),
(Name:'South American 1969'; a:6378160; b:6356775),
(Name:'WGS 60'; a:6378165; b:6356783),
(Name:'WGS 66'; a:6378145; b:6356760),
(Name:'WGS 72'; a:6378135; b:6356751),
(Name:'WGS 84'; a:6378137; b:6356752));