[lostbananan]

Над решением этой пролемы я бьюсь уже не первый день. В результате - оптимизировал код:
код сейчас такой:

Код:

  for i:=0 to 10 do
  begin
    LabelIn(i);
    GridIn(i);
  end;

где

Код:

procedure TForm1.LabelIn(i:integer);
begin
  TextLabel[i] := TLabel.Create(Form1);
  TextLabel[i].Parent :=Form1;
  TextLabel[i].Caption := LabCap[i];
  TextLabel[i].Left := LabLeft[i];
end;
procedure TForm1.GridIn(i:integer);
begin
  Grid[i] := TDrawGrid.Create(Form1);
  Grid[i].Parent := Form1;
  Grid[i].Left := 1+105*i;
  Grid[i].RowCount := 1;
  Grid[i].ColCount := 1;
  Grid[i].Enabled := false;
  Grid[i].DefaultColWidth := 100;
  Grid[i].DefaultRowHeight := GridH[i];
  Grid[i].Width := 100;
  Grid[i].Height := GridH[i];
  Grid[i].Top := 600-Grid[i].Height+20;
  Grid[i].ScrollBars := ssNone;
  Grid[i].Tag   := i+1;
  Grid[i].OnDrawCell:=DrawGrid1DrawCell;
end;

Данный код выдает оишбку времени выполнения (непонятнов каком именно месте кода). Помогите разобраться с даной проблемой!