[Страдалецъ]

Вариантов того что хотел автор довольно много, вот один из них:

Код:

...
Type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    Grids: Array[1..10] of TDBGrid;
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 for i := 1 to 10
 do begin
     Grid[i] := TDBGrid.Create(Form1);
     Grid[i].Parent := Form1;
     end;
end;