Alterar as cores do título de um DBGrid em tempo execução

Procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  I : integer;
begin

  for i:=0 to DBGrid1.Columns.count-1 do
  begin
    DBGrid1.Columns[i].Title.Color := clBtnFace;
    DBGrid1.Columns[i].Title.Font.Color := clBlack;
    DBGrid1.Columns[i].Title.Font.Style := [];
  end;
  Column.Title.color := ClYellow;
  Column.Title.Font.Style := [ fsBold, fsItalic];
  Column.Title.Font.Color := clRed;
end;