Как заполнить StringGrid "стрелочкой" ?

[mEka]

Доброго времени суток!
Очень нужна помощь по заполнению StringGrid'a. Ща объясню как ...

На форме есть StringGrid и кнопка "шаг" . [ну еще две кнопки, изменяющие размеры StringGrid'a (строки, столбцы), но это не важно... ]. Надо, чтобы когда нажимаешь на кнопку "шаг" в StringGrid в центральную строку в первый столбец вскакивала "1". Потом еще раз нажимаешь "шаг", "1" заскакивала во второй столбец и в след. и предыдущ. строку. Потом еще "шаг" - и т.д. Т.е. получается как бы StringGrid заполняется "стрелочкой" слева направо.

Вот, чтобы было понятно, покажу лучше на примере :

Жмемь первый раз "шаг" :


1


Жмемь второй раз "шаг" :

1
1 1
1

Жмемь третий раз "шаг" :
1
1 1
1 1 1
1 1
1
Ну и т.д.

Пожалуйста, уважаемые товарищи, помогите енто сделать .

Заранее весьма благодарен...

[Drop]

это работает:

// step - глобальная переменная
procedure TForm1.Button1Click(Sender: TObject);
var
i, j, cr, up, down: integer;
begin
for i:=0 to StringGrid1.RowCount-1 do
StringGrid1.Rows[i].Clear;
cr:=(StringGrid1.RowCount div 2);
up:=cr-step;
down:=cr+step;
for i:=0 to step do
begin
for j:=up to down do
StringGrid1.Cells[i,j]:='1';
inc(up);
dec(down);
end;
inc(step);
end;

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