Dodaj pasek graficzny do col. StringGrid

Korzystając z Delphi 2010 i komponentu TStringGrid, aktualnie wyświetlam pięć fildów z zapytania do bazy danych.

Oto uproszczony przykład tego, co robię

// ustaw siatkę

procedure TGriddata.FormCreate(Sender: TObject);
begin
 grdMain.Rows[0].commatext:='"One","Two","Three","Four","Five"';
 grdMain.ColWidths[0]:= 50;
 grdMain.ColWidths[1]:= 175;
 grdMain.ColWidths[2]:= 175;
 grdMain.ColWidths[3]:= 100;
 grdMain.ColWidths[4]:= 300;
end;

// wyświetl dane w siatce // uwaga, nie pokazuję mojego utworzenia, wykonania lub zniszczenia zapytania

procedure TGriddata.load;
begin
 ... 
 grdMain.Cells[0,row]:= FieldByName('one').AsString;
 grdMain.Cells[1,row]:= FieldByName('two').AsString;
 grdMain.Cells[2,row]:= FieldByName('three').AsString;
 grdMain.Cells[3,row]:= FieldByName('four').AsString;
 //draw progress bar here
 ...
end;

Jedna z kolumn („Pięć”) musi wyświetlać granatowy poziomy pasek w kol. Powinien także wyświetlać tekst wyśrodkowany na pasku. Nie korzystam z rysunku niestandardowego. Jakie właściwości ustawiam tylko na niestandardowe rysowanie jednej kolumny i używanie domyślnego rysunku dla innych kolumn?