1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
 var stringgrid1:TObject;
begin

stringgrid1:=TStringgrid.create;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
 var stringgrid1:TStringgrid;
begin

  stringgrid1:=TStringgrid.create(Form1);
  stringgrid1.parent := form1;

end;					

1:

uses Grids;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

type
  TForm1 = class(TForm)
  ...
  private
    { Private-Deklarationen }
    StringGrid: TStringGrid;
  public
  ...
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.FormCreate(Sender: TObject);
begin

  StringGrid := TStringGrid.Create(Self);
  with StringGrid do
  begin
    Parent := Self;
    SetBounds(10, 10, Self.ClientWidth - 20, Self.ClientHeight - 20);
    Visible := True;
  end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.FormCreate(Sender: TObject);
begin

  with TStringGrid.Create(Self) do
  begin
    Parent := Self;
    SetBounds(10, 10, Self.ClientWidth - 20, Self.ClientHeight - 20);
    Visible := True;
  end;

end;