[BloodFooria]

Все просто:

Код:

var a, b : Integer;
  c, Res : Real;
begin
  MyGrad:= a + b/60 + c/3600;
end;

a - градусы, b - минуты, c - секунды с долями секунд. Res - результат.

А наоборот сейчас подумаю...