ширина колонки СтрингГрида

[Lisi4ka]

Здравствуйте! Вопрос у меня довольно простой, но нет сейчас времени думать над ним, поскольку сдача диплома на днях, необходимо дописать основную часть проги. Суть: необходимо подогнать размер колонки DbGrid под размер ее заголовка.
Расширение колонки взяла с http://forum.sources.ru

procedure AutoSizeGridColumn(Grid : TStringGrid; 
                              column : integer); 
var 
  i : integer; 
  temp : integer; 
  max : integer; 
begin 
  max := 0; 
  for i := 0 to (Grid.RowCount - 1) do begin 
    temp := Grid.Canvas.TextWidth(grid.cells[column, i]); 
    if temp > max then max := temp; 
  end; 
  Grid.ColWidths[column] := Max + Grid.GridLineWidth + 3; 
end;

Помогите переделать процедуру под заголовок Грида, нет уже времени думать, заранее благодарю!

[Toxa]

for i := 0 to (Grid.COLCount - 1) do begin
должно работать