Como trocar a cor do texto de uma coluna do dbgrid?

Procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
// Troca a cor de fundo do DBGrid
DBGrid1.Canvas.Brush.Color := clAqua;
if Column.Index = 1 then
begin
// Troca a cor do texto de uma coluna
DBGrid1.Canvas.Font.Color := clOlive;
end
else
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;