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

implementation

end.

unit Unit3;

interface

uses

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

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

type

TForm3 = class(TForm)

Image1: TImage;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

Button1: TButton;

Label1: TLabel;

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

Label31: TLabel;

StaticText1: TStaticText;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }