CREER DYNAMIQUEMENT PLUSIEURS STRINGGRID

procedure TForm1.Button1Click(Sender: TObject);
var       i,n:integer;
          Mat : TStringGrid;
begin
n:=strtoint(edit1.text);
for i:=1 to n do
 TStringGrid(FindComponent('Mat'+inttostr(i))).free; //pour effacer les stringgrid existant

Mat := TStringGrid.Create(self);
Mat.Parent := Self;
Mat.Name := 'Mat1';
Mat.Width := 235;
Mat.Height := 130;
Mat.Left := 18;
Mat.Top := 30;
Mat.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing,goTabs];
Mat.DefaultColWidth :=45;

Mat := TStringGrid.Create(self);
Mat.Parent := Self;
Mat.Name := 'Mat2';
Mat.Width := 235;
Mat.Height := 130;
Mat.Left := 280;
Mat.Top := 30;
Mat.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing,goTabs];
Mat.DefaultColWidth :=45;

i:=3;
while (i<= n) do
begin Mat := TStringGrid.Create(self);
      Mat.Parent := Self;
      Mat.Name := 'Mat'+inttostr(i);  // un nom différent pour chaque stringgrid créer
      Mat.Width := 235;
      Mat.Height := 130;
      Mat.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing,goTabs];
      Mat.DefaultColWidth :=45;
       if ((i mod 2) = 0) then
         begin Mat.Left := 280;
               Mat.Top:= TStringGrid(FindComponent('Mat'+inttostr(i-2))).Top+TStringGrid(FindComponent('Mat'+inttostr(i-2))).Height+10;
         end
       else begin  Mat.Left := 18;
                   Mat.Top := TStringGrid(FindComponent('Mat'+inttostr(i-2))).Top+TStringGrid(FindComponent('Mat'+inttostr(i-2))).Height+10;
            end;

      i:=i+1;
end;

end;