линейная таблица(Delphi)

[2009]

Есть линейная таблица при нажатии кнопки «Заполнение» линейная таблица должна заполниться. При нажатии кнопки «Сдвиг» линейная таблица должна сдвинуться на одну ячейку вправо.

procedure TForm1.Button1Click(Sender: TObject);
begin
k:=6;
n:=k-1;{номер последней ячейки}
stringgrid1.Width:=k*stringgrid1.DefaultColWidth
 +n*stringgrid1.GridLineWidth;
  for i:=0 to n do
       stringgrid1.cells[i,0]:=inttostr(i);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
s:=stringgrid1.cells[0,0];
 for i:=0 to n-1 do
 stringgrid1.cells[i,0]:=stringgrid1.cells[i+1,0];
 stringgrid1.cells[n,0]:=s;
end;

end.

У меня она сдвигпется влево, что сделать чтобы она сдвигалась вправо?

[Sazary]

Как-то так:

procedure TForm1.Button2Click(Sender: TObject);
begin
s:=stringgrid1.cells[n,n];
 for i:=n downto 1 do
 stringgrid1.cells[i,0]:=stringgrid1.cells[i-1,0];
 stringgrid1.cells[0,0]:=s;
end;

end.

[2009]

вроде, как и правильно, но тогда возникает проблемка, при сдвиге ячейка стает пустой, а должна заполнятся значением с последней ячейки.

[Sazary]

Да, там опечатка:

s:=stringgrid1.cells[n,0];

[2009]

Это именно то что мне было нужно СПАСИБО!!