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

y5:=int(y3+2.5);

case ZPL1 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;

Image1.Canvas.Ellipse(x4,y4,x5,y5);

g:=0;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

Timer1.Enabled:=false;

close;

end;

procedure TForm4.Timer1Timer(Sender: TObject);

begin

begin

g:=g+1;

if g div 2=5 then

begin