function CurrToGra(Val: Extended): AnsiString;
var
V: Currency;
begin
Result:= IntToStr(Floor(Val)) + '° ';
V:= (Val - Floor(Val)) * 60;
Result:= Result + IntToStr(Floor(V)) + #39 + #32;
V:= (V - Floor(V)) * 60;
Result:= Result + CurrToStr(V) + #39 + #39;
end;