DelphiX таймеры и спрайт

[Kolik317]

Доброго времени суток.
Пытаюсь написать простенькую игрушку, столкнулся с проблемой.
Спрайт движется по кругу через domove, интервал счетчика 0.
Нужно чтобы помимо движения, он увеличивался, но интервал нужен где-то 20-30. Пытался припаять второй счетчик, но из него к размерам спрайта обратиться никак не получается =/. Пробовал с одним счетчиком, делать что-то типа флажков:

procedure TMonoSprite.DoMove(MoveCount: Integer);
var
n:integer;
begin
   inherited DoMove(MoveCount);
  PixelCheck := True;
  FCounter := FCounter + (100/1000)*MoveCount;
  X := X+Sin256(Trunc(FCounter))*(200/1000)*MoveCount;
  Y := Y+Cos256(Trunc(FCounter))*(200/1000)*MoveCount;
n:=n+1;
if n=5 then
 begin
if form1.a=true then
  begin
  width:=width+1;
  height:=height+1;
  if width>50 then
  form1.a:=false;
  end;
  if form1.a<>true then
  begin
  width:=width-1;
  height:=height-1;
  if width<5 then
  form1.a:=true;
  end;
 n:=0;
 end;

Но не катит, по скольку зависит от фпс, в оконном и полноэкранном режиме получается по разному.

В общем как через второй таймер обратиться к спрайту? И как я понял придется использовать обычный таймер? два TDXtimer нельзя?


Как я понимаю надо заюзать во втором таймере with tmonosprite, или with domove, но ничего не выходит.

[Kolik317]

Сделал так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if a=true then
  begin
  l:=l+1;
 if l>50 then
  a:=false;
  end;
  if a<>true then
  begin
  l:=l-1;
  if l<5 then
  a:=true;
end;
end;

- l - переменная ширины и длины, работает в таймере с желаемым интервалом.
В domove L присваивается ширине и высоте спрайта, с интервалом 0:

procedure TMonoSprite.DoMove(MoveCount: Integer);
var
n:integer;
begin
   inherited DoMove(MoveCount);
  PixelCheck := True;
  FCounter := FCounter + (100/1000)*MoveCount;
  X := X+Sin256(Trunc(FCounter))*(200/1000)*MoveCount;
  Y := Y+Cos256(Trunc(FCounter))*(200/1000)*MoveCount;
width:=form1.l;
height:=form1.l;
 if not Collisioned then
  begin
    Inc(FS, MoveCount);
    if FS>200 then Dead;
  end;
end;

Вообще как-то странно, я не могу понять почему он движется по кругу с постоянной скоростью, а когда я задаю там же ширину при помощи флажка, стоит переключиться в полно экранный режим, фпс поднимается с 75 до 250, и спрайт начинает увеличиваться-уменьшаться с бешеной скоростью.
В общем если кто-то сталкивался, или шарит расскажите пожалуйста как сделать грамотно.