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

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

end;

procedure TForm3.SpeedButton2Click(Sender: TObject);

begin

Form4:=TForm4.Create(Application);

Form4.ShowModal;

Form4.Free;

SpeedButton2.visible:=false;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Buttons, Common,Math;

type

TForm4 = class(TForm)

Image1: TImage;

Timer1: TTimer;

Button1: TButton;

Label1: TLabel;

-----------------------

Label32: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);