Переключение между башнями в игре

[Skrip]

Я пишу игру, где две башни стреляют друг в друга. У меня возникла проблема переключения между стреляющими башнями.
Процедура выстрела одной из башен:

procedure Vistrel;
var temp: extended;
begin
  if VistrelJ then
  begin
    DrowJdroBullet;
    x := x - dxBullet;
    temp := x * (Sin(alfa) / Cos(alfa)) + (25 * x * x ) / (Sila * Cos(alfa) * Cos(alfa));
    y := round(temp);
    if y>= 500 then
    begin
      VistrelJ := false;
      rel := true;
      x := 0; y := 0;
    end;
  end;

  if (VistrelB) then
  begin
    DrowJadroBullet;
    x := x + dxBullet;
    temp := x * (Sin(alfa) / Cos(alfa)) - (25 * x * x ) / (Sila * Cos(alfa) * Cos(alfa));
    y := -round(temp);
    if y>= 500 then
    begin
      VistrelB := false;
      rel := false;
      x := 0; y := 0;
    end;
  end;
end;

и:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if rel then DrowPush1(nsB)
  else DrowPush2(nsJ);

  Buffer.Canvas.Draw(0,0,BufFon);

  Vistrel;

  if rel then Buffer.Canvas.Draw(xB,yB,BufPicB)
  else Buffer.Canvas.Draw(xJ,yJ,BufPicJ);

  Buffer.Canvas.Draw(xBullet+x,yBullet + y,BufPic);
  Form1.Canvas.Draw(0,0,Buffer);
end;
end.

Первый выстрел проходит нормально. Потом переключается на другую башню. И все, больше не хочет стрелять. не могу понять, что здесь не так? Как следует сделать, чтоб после выстрела одной башни, можно было стрелять другой?

[veniside]

ну так у вас VistrelJ и VistrelB присваиваются false и всё, никто ни в кого не стреляет )
где-то же им надо и true присваивать, верно?

> Как следует сделать, чтоб после выстрела одной башни, можно было стрелять другой?

VistrelJ := false;
VistrelB := true;

.......

VistrelB := false;
VistrelJ := true;

типа того. А ещё лучше индекс башни завести. Если у вас 3 или 33 башни будет:

inc(firingTowerIndex);
if (firingTowerIndex >= с_maxTowers) then
  firingTowerIndex := 0;
//
Vistrel(firingTowerIndex); // стреляем из башни с переданным индексом

[Skrip]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of

  VK_Space:
  begin
  if rel then VistrelB := true
  else VistrelJ := true;
  end;
  end;
end;

вот в этой процедуре у меня происходит присвоение true выстрелу. Если я это сделаю в процедуре Vistrel, то после выстрела одной башни сразу начинает стрелять другая, не дожидаясь команды с клавиатуры.