Анімація в Delphi 7.0, Детальна інформація

Timer1: TTimer;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure Timer1Timer(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

x,y,z,k,s,n,u:integer;

implementation

{$R *.dfm}

procedure titanic(x,y:integer;color:TColor);

const

dx=5;dy=5;

var

buf:TColor;

begin

with form1.Canvas do

begin

buf:=pen.Color;

pen.Color:=color;

moveto(0,161);

lineto(530,161);

ellipse(480,40,600,-80);