Управление фигурами Shape

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
VK_UP: begin
       BoardL.Top:=BoardL.Top - 8;
       Exit;
       end;
VK_DOWN: begin
         BoardL.Top:=BoardL.Top + 8;
         Exit;
         end;
 
end;
Case Key of
VK_NUMPAD8: begin
            BoardR.Top:=BoardR.Top - 8;
            Exit;
            end;
VK_NUMPAD5: begin
            BoardR.Top:=BoardR.Top + 8;
            Exit;
            end;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 37 then
  begin
    ShowMessage('Нажата стрелка влево');
    //блокируем нажатие стрелки повторно
  end;
end;

var
  Form1: TForm1;
  Turn: Boolean=True;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case Key of
  VK_UP,VK_NUMPAD8:
   if Turn
    then shp1.Top:=shp1.Top - 8
    else shp2.Top:=shp2.Top - 8;
  VK_DOWN,VK_NUMPAD5:
   if Turn
    then shp1.Top:=shp1.Top + 8
    else shp2.Top:=shp2.Top + 8;
 end;
 Turn := not Turn;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key in [VK_UP,VK_NUMPAD8,VK_DOWN,VK_NUMPAD5] then
  begin
   case Key of
    VK_UP,VK_NUMPAD8:
     if Turn
      then shp1.Top:=shp1.Top - 8
      else shp2.Top:=shp2.Top - 8;
    VK_DOWN,VK_NUMPAD5:
     if Turn
      then shp1.Top:=shp1.Top + 8
      else shp2.Top:=shp2.Top + 8;
   end;
   Turn := not Turn;
  end;
end;