Счеткчик в игре

[misher]

procedure TForm1.Timer1Timer(Sender: TObject);
var
Count: integer;
begin
  Count:= 0;
Inc(Count);
Label1.Caption := IntToStr(Count);
  N_kadrS1:= InitSprite('data/ship1.bmp',2,1,1,N_kadrS1);
  LoadBuff(xS1-dxS1,yS1+dyS1,xS1,yS1,0);
  Form1.Canvas.Draw(xf,yf,Buffer);

  if flag_S = false then
  begin
    N_kadrR:= InitSprite('data/ship' + IntToStr(ns) + '.bmp',Nspr,1,1,N_kadrR);
    LoadBuff(xR,yR - dyR,xR,yR,0);
    Form1.Canvas.Draw(xf,yf,Buffer);
  end;
Inc(Count);

чего тут не так???

[Dalef]

Да ты сам понимаешь, что делаешь? У тебя каждый раз при срабатывании таймера обнуляется переменная Count! Ты должен обнулить её в OnCreate твоей формы...

[misher]

УРРААААА счетчик сделал игрушка пропала!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!

[misher]

всем большое спсибо разобрался!!!!!!!!!!!!