Stringgrind und (mal wieder) die Frage nach der Farbe......

[WIng2005]

Hallo Gemeinde,

habe mich mal hier ein wenig belesen und komme nun doch nicht weiter.
Ich möchte ein StringGrid mit verschieden farbigen Spalten darstellen.
Hierzu habe ich bereits:

Delphi-Quellcode:

Procedure STGRPFPL2_UE1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
Var x:integer;
  Begin
  mainform.STGRPFPL2_UE_1.Canvas.Brush.Color := clmoneygreen;
  if (ACol=0) and (ARow >0) then
  mainform.STGRPFPL2_UE_1.Canvas.FillRect(Rect);

  mainform.STGRPFPL2_UE_1.Canvas.Brush.Color := clwhite;
  if (ACol=0) and (ARow =0) then
   mainform.STGRPFPL2_UE_1.Canvas.FillRect(Rect);

  end;

eingefügt. Dieser Event sollte doch nun aufgerufen werden, sobald das Grid gezeichnet wird.
Funktioniert auch soweit ganz gut, jedoch ist mein mit

Delphi-Quellcode:

Procedure PFPL_Uebersicht_Main;
var x:integer;
Begin
With mainform do
Begin
.
.
.
Select_1('TeileNr','bis_fpl_ma');
      STGRPFPL2_UE_1.RowCount:=Zquery1.RecordCount+2;
      x:=2;
      While not Zquery1.Eof do
      Begin
        STGRPFPL2_UE_1.Canvas.Brush.Color:=clWindowText;
        STGRPFPL2_UE_1.Cells[0,x]:=ZQuery1.fieldbyname('teilenr').AsString;
        x:=x+1;
        ZQuery1.next;
      end;
.
.
.
end;

eingefügter Text auf wundersame Weise verschwunden. Ohne "Farbzusatz" geht alles. Wo könnte
hier meine Denkfehler liegen?

MFG
Steffen