procedure TForm1.Button1Click(Sender: TObject);
var
nCont:Integer;
begin
For nCont:=0 to DbGrid1.Columns.Count -1 do
begin
DbGrid1.Columns[nCont].Title.Font.Name :='Arial';
DbGrid1.Columns[nCont].Title.Font.Size :=11;
DbGrid1.Columns[nCont].Title.Font.Color :=clRed;
end;
end;