Сдвиг массива влево по стрелке

var
  Form1: TForm1;
  var a:array of integer;
  n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
n:=SpinEdit1.Value;
Setlength(a,n);
StringGrid1.ColCount:=n;
for i:=0 to n-1 do
 begin
  a[i]:=random(100);
  StringGrid1.Cells[i,0]:=IntToStr(a[i]);
 end;
SpinEdit1.Enabled:=false;
Button1.Enabled:=false;//чтобы не дергались
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i,x:integer;
begin
if key=VK_Left then
 begin
  x:=a[0];
  for i:=0 to n-2 do
  a[i]:=a[i+1];
  a[n-1]:=x;
  for i:=0 to n-1 do
  StringGrid1.Cells[i,0]:=IntToStr(a[i]);
 end;
end;

var
  Form1: TForm1;
  var a:array of integer;
  n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
n:=SpinEdit1.Value;
Setlength(a,n);
StringGrid1.ColCount:=n;
for i:=0 to n-1 do
 begin
  a[i]:=random(100);
  StringGrid1.Cells[i,0]:=IntToStr(a[i]);
 end;
SpinEdit1.Enabled:=false;
Button1.Enabled:=false;//чтобы не дергались
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i,x:integer;
begin
if key=VK_Right then
 begin
  x:=a[n-1];
  for i:=n-1 downto 1 do
  a[i]:=a[i-1];
  a[0]:=x;
  for i:=0 to n-1 do
  StringGrid1.Cells[i,0]:=IntToStr(a[i]);
 end;
end;