Wie kann man die Textfarbe im Stringgrid ändern?

[hathor]

WinXPSP2
BDS2006

Wie kann man die Textfarbe im Stringgrid FÜR EINZELNE ZELLEN ändern?
Wer findet eine Lösung?

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var i: integer;
    hex15: string;
begin
for i:= 0 to 15 do
begin
SG1.Font.Color:= clblack; //funktioniert nicht - warum???
hex15:= IntToHex(i,2);
SG1.Cells[0,i+1]:= hex15;
SG1.Cells[i+1,0]:= hex15;
SG1.Font.Color:= clred;    //funktioniert nicht - warum???
SG1.Cells[i+1,i+1]:= '51';
end;
//folgende zeile verhindert  SG1.Font.Color:= clred; in der for-do-schleife !!!
//SG1.Font.Color:= clblack;
SG1.Cells[0,0]:='EC';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    SG1.Font.Color:= clblack; //funktioniert nicht - warum???
    FormShow(Self);
end;