Перевод координат

[ax1d]

Здравствуйте.
Задача на перевод координат из декартовой системы координат в полярную и наоборот.
Вот из полярной в декартову

procedure TForm3.Button1Click(Sender: TObject);
var p1: pol;
d1: dec;
begin
if Labelededit1.Text='' then p1.r:=0
else p1.r:=StrToFloat(Labelededit1.Text) ;
if Labelededit2.Text='' then p1.fi:=0
else p1.fi:=StrToFloat(Labelededit2.Text );
pol2dec(p1,d1);
Label1.Caption:='x='+FloatToStr(d1. x)+'; y='+FloatToStr(d1.y);
end;

проблема вот в чем как исправить чтобы значение FI(это угол ) выводился в градусах!

[Пепел Феникса]

а сейчас он в радианах?

вот перевод из радиан в градусы
d{градусы будут}:=p1.fi{радианы}/PI*180