Тригонометричні ефемериди планет Сонячної системи

8: Label4.Caption:='серпня';

9: Label4.Caption:='вересня';

10: Label4.Caption:='жовтня';

11: Label4.Caption:='листопада';

12: Label4.Caption:='грудня';

end;

if ZAB<=0 then

ZAB:=abs(ZAB)+50

else ZAB:=50-ZAB;

y3:=250-(((90-ZAB)/90)*250);

x3:=((24-ZAA)/24)*1000;

x4:=int(x3-2);

y4:=int(y3-2);

x5:=int(x3+2);

y5:=int(y3+2);

case ZPL of

1:Image1.Canvas.Pen.Color:=clRed;

2:Image1.Canvas.Pen.Color:=clAqua;

4:Image1.Canvas.Pen.Color:=clRed;

5:Image1.Canvas.Pen.Color:=clYellow;

6:Image1.Canvas.Pen.Color:=clLime;

7:Image1.Canvas.Pen.Color:=clGreen;

8:Image1.Canvas.Pen.Color:=clBlue;

9:Image1.Canvas.Pen.Color:=clFuchsia;

end;