Attacker running out of bombs DelphiX Starfighter Game

[Wizard]

This is what I've got:

if FTamaCount smaller than 300 and FCounter-FOldTamaTime greater or equal to 150 then

Thanks Traveller. Yes the tags messed it up. Some code:

procedure TAttacker.DoMove(MoveCount: integer);
begin
 inherited DoMove(MoveCount);
  if (fMode = 0) then
  begin
    if (Movement = 0) Then
    Movement := Random(2);
    if X > 1250  Then Movement := 1;
    if X < -500 Then Movement &#58;= 2;

Case Movement of
1&#58;
  X &#58;= X - &#40;1.5*UpdateSpeed&#41;;
2&#58;
  X &#58;= X + &#40;1.5*UpdateSpeed&#41;;
end;
  if&#40;&#40;FTamaCount<300&#41; and &#40;FCounter-FOldTamaTime>=150&#41;&#41; then
  begin
    Bomb &#58;= TBomb.create&#40;FormGame.DXSpriteEngine.Engine&#41;;
    Bomb.OnCollision &#58;= formGame.BombCollision;
    FTamaCount &#58;= fTamaCount+1*updatespeed;
    FOldTamaTime &#58;= FCounter;
  end;
FCounter &#58;= FCounter + UpdateSpeed;
end;
end;

constructor TBomb.create&#40;parent&#58; TSpriteEngine&#41;;
begin
  inherited Create&#40;parent&#41;;
  self.Image &#58;= FormGame.DXImageList.Items&#91;formGame.FireBallImageIndex&#93;;
  self.X &#58;= attacker.X + 80;
  self.Y &#58;= attacker.Y + 100;
  self.Width &#58;= self.Image.Width;
  self.Height &#58;= self.Image.Height;
  self.PixelCheck &#58;= false;
end;

procedure TBomb.DoMove&#40;MoveCount&#58; integer&#41;;
begin
  inherited DoMove&#40;MoveCount&#41;;
  Y &#58;= Y + &#40;4 * UpdateSpeed&#41;;
  if &#40;Player.hit&#41; then
  Dead;
  if &#40;Y >= FormGame.DXDrawGame.Height +20&#41; Then
  Dead;
  collision;
end;