2хм. массив из TImage

[Marsel737]

Serg-Grin, конкретно через OnClick ничего разбить невозможно, а вот при помощи такого пода получается такая сетка.

var
  Form1: TForm1;
  StrGrid: TStringGrid;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  StrGrid := TStringGrid.Create(Owner);
  with StrGrid do
  begin
    Parent := self;
    Top := 0;
    Left := 0;
    Height := 315;
    Width := 315;
    RowCount := 1;
    ColCount := 1;
    RowCount := 10;
    ColCount := 10;
    for i := 0 to 9 do
    begin
      StrGrid.ColWidths[i] := 30;
      StrGrid.RowHeights[i] := 30;
    end;
  end;
end;