Анімація в Delphi 7

n:=n+1;

if u=0 then

n:=n-1;

if s
s:=s+1

else

s:=0;

if x=0 then

z:=1;

if x=10 then

z:=0;

if y=0 then

k:=1;

if y=10 then

k:=0;

if z=1 then

x:=x+1;

if z=0 then

x:=x-1;

if k=1 then

y:=y+1;

if k=0 then

y:=y-1;

titanic(x,y,clWhite);

end;