im Teltreestringgrid die Textfarbe einer Spalte ändern

[Natcree]

Das ist mein Code

Delphi-Quellcode:

procedure TForm1.ElTreeStringGrid1ItemDraw(Sender: TObject;
  Item: TElTreeItem; Surface: TCanvas; R: TRect; SectionIndex: Integer);
var
i:integer;
begin
for i:= 1 to eltreestringgrid1.RowCount do
if eltreestringgrid1.Cells[3,i]='' then else
eltreestringgrid1.Font.Color:= clred;
end;