Анімація в Delphi 7

if (z=1) then

lineto(200-x+s,150+y+n);

if (z=0) then

lineto(200+x+s,150+y+n);

moveto(200+s,137+n);

if (z=1) then

lineto(200+x+s,137+y+n);

if (z=0) then

lineto(200-x+s,137+y+n);

moveto(200+s,137+n);

if (z=1) then

lineto(200-x+s,137+y+n);

if (z=0) then

lineto(200+x+s,137+y+n);

pen.Color:=buf;

end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

titanic(x,y,form1.Color);

if n=-5 then

u:=1;

if n=5 then

u:=0;

if u=1 then