Wenn Du nur die Textfarbe ändern willst, nimmst Du am Besten PaintText():
Delphi-Quellcode:
Case Column of
0: TargetCanvas.Font.Color := clBlack;
1: TargetCanvas.Font.Color := clBlue;
2: TargetCanvas.Font.Color := clRed;
else
end;
Mal so als Beispiel.