colored text in TableGrid

procedure Form3_TableGrid1_OnChange (Sender: string);
var 
    i,c: integer;
 begin 
      c := Form3.TableGrid1.RowCount - 1;                     
      for i := 0 to c do
      begin
         Form3.TableGrid1.Cell[0,i].TextColor := clGreen
     end;
end;