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

Label2.Visible:=true;

Label3.Visible:=true;

Label4.Visible:=true;

Label5.Visible:=true;

Label6.Visible:=true;

case ZPL of

1: Label1.Caption:='Меркурій';

2: Label1.Caption:='Венеру';

4: Label1.Caption:='Марс';

5: Label1.Caption:='Юпітер';

6: Label1.Caption:='Сатурн';

7: Label1.Caption:='Уран';

8: Label1.Caption:='Нептун';

9: Label1.Caption:='Плутон';

end;

Label3.Caption:=IntToStr(ZD);

Label5.Caption:=IntToStr(ZR);

case ZM of

1: Label4.Caption:='січня';

2: Label4.Caption:='лютого';

3: Label4.Caption:='березня';

4: Label4.Caption:='квітня';

5: Label4.Caption:='травня';

6: Label4.Caption:='червня';

7: Label4.Caption:='липня';