CheckBox'ы в столбец в Stringgrid'e

[Bright-rider]

Нужно поместить Чекбоксы в Столбец Стринггрида.
Я использовал код

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
 r:trect;
begin
 if(cell_x>=StringGrid1.LeftCol) and
   (cell_x<=StringGrid1.LeftCol+StringGrid1.VisibleColCount) and
   (cell_y>=StringGrid1.TopRow) and
   (cell_x<=StringGrid1.TopRow+StringGrid1.VisibleRowCount) then
     CheckBox1.Visible:=true
 else
     CheckBox1.Visible:=false;

 if (acol=cell_x) and (arow=cell_y) then
 begin
   r:=stringgrid1.CellRect(cell_x,cell_y);
   r.Left:=r.left+stringgrid1.left+2;
   r.right:=r.right+stringgrid1.left+2;
   r.top:=r.top+stringgrid1.top+2;
   r.bottom:=r.bottom+stringgrid1.top+2;
   CheckBox1.BoundsRect:=r;
 end;
end;

Но когда я его ввожу в цикл for to do выдаёт ошибку при компиляции. (Ошибка по адресу...)
Чекбоксы уже созданы. Подскажите, как это реализовать. Буду благодарен.

Подскажите, как заполнить весь столбец Stringgrida Sheckbox'ами? Буду благодарен за помощь.

[NetSpace]

Нечто подобное я пытался сделать, но при других обстоятельствах.
у меня было 10 CheckBox'ов на панели. И тоже для обработки задал их в простой цикл:

for i:=1 to 10 do...

,
а при компиляции выдало ошибку. Просто их нумерация на панели идёт не от 1 до 10, а от 0 до 9. Пока методом научного втыка не исправил, так и думал, что ошибка в чём-то другом.

[wm_leviathan]

http://delphiwolrd.narod.ru/base/che...tringgrid.html