1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

var List: array of array of String;
    ListLbls: array of array of TLabel;
[...]
{Form.Create:}
var A: integer; MaxW: integer; Spacer: integer;
begin

  Spacer:=5;

  SetLength(List, 2,10);
  SetLength(ListLbls, 2,10);

  List[0,0]:='bla';
  List[1,0]:='500';
  List[0,1]:='blub';
  List[1,1]:='800';
  List[0,2]:='blabla';
  List[1,2]:='1000';
  List[0,3]:='bla';
  List[1,3]:='1500';

  MaxW:=0;
  MaxWDummy:=0;
  for A:=0 to High(List) do
    begin
      MaxW:=MaxWDummy;
      for B:= 0 to High(List[A]) do
        begin
            ListLbl[A,B]:=TLabel.Create(Form1);
            ListLbl[A,B].Parent:=Form1; //< oder hier ein Panel, das kannst du dann auf der Form verschieben und zur Laufzeit wird es dann gefüllt

            ListLbl[A,B].Font.Size:=13;
            ListLbl[A,B].AutoSize:=True
            ListLbl[A,B].Caption:=List[A,B];

            ListLbl[A,B].Left:=Spacer+A*MaxW;
            ListLbl[A,B].Top:=Spacer+B*(ListLbl[A,B].Height+Spacer);

            if (MaxWDummy<ListLbl[A,B].Width) then
              MaxWDummy:=ListLbl[A,B].Width;
      end;
end;                    

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

Const
NoSelection: TGridRect =
(Left:-1; Top:-1; Right:-1; Bottom:-1 );
begin
  StringGrid1.Selection := NOSelection;
end;