procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
var
 delta: integer; // шаг перемещения при нажатии на клавиатуре
begin
 delta := Form1.ComboBox2.ItemIndex;
 if Key = #38 then ArrBatar[i].Move(ArrBatar[i],ArrBatar[i].X0,(ArrBatar[i].Y0 - delta)); //Вверх
 if Key = #39 then ArrBatar[i].Move(ArrBatar[i],ArrBatar[i].X0,(ArrBatar[i].Y0 + delta); //Вниз
end;