[Picard]

Sabeis de algun metodo para convertir decimales a radianes? en los ejemplos de easymap vcl me lo hace asi, pero esta en pascal y no tengo ni idea de como hacerlo en c++ builder,

  
procedure TfrmMain.MapMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 DisplayPosition(X,Y);
end;

procedure TfrmMain.DisplayPosition(X, Y: Integer);
var
 mX, mY: Extended;
 degX, minX, secX, degY, minY, secY: Integer;
 signX, signY, sX, sY: String;
begin
 if Map.Layers.Count = 0 then Exit;
 Map.ScreenToMap(X, Y, mX, mY);
 if actPositionInDegree.Checked then
  begin
   if mx < 0 then signX := '-' else signX := '';//'+';
   mX := abs(mX);
   degX := trunc(int(mX));
   minX := trunc(int((mX-degX)* 60));
   secX := trunc(int((mX-degX-minX/60)*3600));
   sX := Format('%S%-.3D-%.2D''%.2D"', [signX, degX, minX, secX]);

   if mY < 0 then signY := '-' else signY := '';//'+';
   mY := abs(mY);
   degY := trunc(int(mY));
   minY := trunc(int((mY-degY)* 60));
   secY := trunc(int((mY-degY-minY/60)*3600));
   sY := Format('%S%-.3D-%.2D''%.2D"', [signY, degY, minY, secY]);
  end
 else
  begin
   sX := Format('%F', [mX]);
   sY := Format('%F', [mY]);
  end;
 StatusBar.Panels[1].Text := Format('X=%S Y=%S', [sX, sY]);
end;

gracias