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:

type TEigenschaften = Record 
Farbe : TColor; 
Schrift : TFont; 
FS : TFontStyles;
end;
var EigenschaftenGrid : array [0..40,0..40] of TEigenschaften;

implementation

{$R *.dfm}

procedure Tfrm_MitSit.Button4Click(Sender: TObject);
var
c,r,i: integer;
TF : TFont;
S : String;
FSS : TFontStyles;
begin
for c:= 1 to StringGrid1.ColCount-1 do
    for r:= 1 to StringGrid1.RowCount-1 do begin
          S :=  StringGrid1.Cells[c,r];   // string wird korrekt angezeigt
          i :=  EigenschaftenGrid[c,r].Farbe;  // Farb int wird korrekt angezeigt
          TF := EigenschaftenGrid[c,r].Schrift; [size=18]// hier kommen nur () 
          FSS := EigenschaftenGrid[c,r].FS; // hier kommen nur [] ??

    end;
end;					

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

procedure Tfrm_MitSit.FormCreate(Sender: TObject);
var i,j : integer;
begin
      for i:=0 to 5 do begin
          for j:=0 to 5 do begin
             EigenschaftenGrid[i,j].Farbe:=clwhite;
          end;
      end;
end;					

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

procedure Tfrm_MitSit.FormCreate(Sender: TObject);
var i,j : integer;
begin
      for i:=0 to 5 do begin
          for j:=0 to 5 do begin
             EigenschaftenGrid[i,j].Farbe:=clwhite;
             EigenschaftenGrid[i,j].Schrift.Name := 'MS Sans Serif'; //?? hier bekomme ich beim Laden Exception
             EigenschaftenGrid[i,j].FS := [fsBold]; //klappt 
          end;
      end;
end;