[pANda777]

На форме есть 2 Shape в виде круга. Я прописал их движение на кнопки
Первый передвигается на стрелочки, второй на NUMPAD'e.

Проблема в том, что они одновременно двигаться не хотят. Писал через оператор Case, if и задавал горячие клавиши и всё равно двигаются только по очереди.

Код:

 case Key of
     VK_UP: begin
             Gamer1.Top := Gamer1.Top -12;
             Exit;
            end;

   VK_LEFT: begin
             Gamer1.Left := Gamer1.Left-12;
             Exit;
            end;

   VK_Right: begin
             Gamer1.Left := Gamer1.Left+12;
             Exit;
            end;

   VK_DOWN: begin
             Gamer1.Top := Gamer1.Top +12;
             Exit;
            end;
  //end;
 //case Key  of


  {VK_NUMPAD8:  begin
                Gamer2.Top := Gamer2.Top -12;
                Exit;
               end;

  VK_NUMPAD4:  begin
                Gamer2.Left := Gamer2.Left -12;
                Exit;
               end;

  VK_NUMPAD6:  begin
                Gamer2.Left := Gamer2.Left +12;
                Exit;
               end;

  VK_NUMPAD5:  begin
                Gamer2.Top := Gamer2.Top +12;
                Exit;
               end;
  end;}

примерный код. Если объединять в 1 Case то так же двигаются по 1.