[Alegun]

Сообщение от lostbananan

...Данный код выдает оишбку времени выполнения...

А если так

Код:

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