Что делает этот кусок кода в дельфи?

procedure TDuckForm.Timer1Timer(Sender: TObject);
var
Dog : TDog;
KillDuck : TSprite;
begin
if not Assigned(SpriteEngine) then exit;
SpriteEngine.Move;
// detruit les sprites qui sont "Killer "
SpriteEngine.RemoveKillSprite;

// si on joue et qu'il y a plus de canard vivant sur le plateau
if (fState = appli_Game) and (fNbAliveCanard = 0) then begin
// permet d'eviter de rentrer dans la boucle ...
// pas beau non plus mais ca marche assez bien !
fState := appli_CptDuck;
// on MAJ le score
ScoreText.Text := Format('%d',[fScore]);
// compte le nombre total de canard tué
inc(fKillCanardRound,fKillCanardLache);
//ici on teste si on a tué 1 canards, 2 ou zero
case fKillCanardLache of
0 : Dog:=TDog.Create(CRY,SpriteEngine.ClientRect);
1 :
begin
Dog:=TDog.Create(FOUND1,SpriteEngine.ClientRect);
// canard tué s'ajiute à la "gauge"
KillDuck := TSprite.Create(LITTLE_KILL_DUCK,LITTLE_DUCK_WIDTH,LITTLE_DUCK_HEIGHT);
KillDuck.SetCoord((Barre.Coord.X+150)+ LITTLE_DUCK_WIDTH*fKillCanardRound , (Barre.Coord.Y+50));
KillDuck.SetZCoord(Z_INFO_BAR);
KillDuck.Tag := TO_DELETE_EACH_ROUND;
SpriteEngine.AddSprite(KillDuck);
end;
2 :
begin
Dog:=TDog.Create(FOUND2,SpriteEngine.ClientRect);

KillDuck := TSprite.Create(LITTLE_KILL_DUCK,LITTLE_DUCK_WIDTH,LITTLE_DUCK_HEIGHT);
KillDuck.SetCoord((Barre.Coord.X+150)+ LITTLE_DUCK_WIDTH*(fKillCanardRound-1) , (Barre.Coord.Y+50));
KillDuck.SetZCoord(Z_INFO_BAR);
KillDuck.Tag := TO_DELETE_EACH_ROUND;
SpriteEngine.AddSprite(KillDuck);

KillDuck := TSprite.Create(LITTLE_KILL_DUCK,LITTLE_DUCK_WIDTH,LITTLE_DUCK_HEIGHT);
KillDuck.SetCoord((Barre.Coord.X+150)+ LITTLE_DUCK_WIDTH*fKillCanardRound , (Barre.Coord.Y+50));
KillDuck.SetZCoord(Z_INFO_BAR);
KillDuck.Tag := TO_DELETE_EACH_ROUND;
SpriteEngine.AddSprite(KillDuck);

end;
end;
SpriteEngine.AddSprite(Dog);
end;
// on appel le paint
Invalidate;
end;