Añadir barra gráfica a una columna StringGrid

Al usar Delphi 2010 y un componente TStringGrid, actualmente muestro cinco filds de una consulta de base de datos.

Aquí hay un ejemplo simplificado de lo que estoy haciendo

// configurar la cuadrícula

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;

// mostrar los datos en la cuadrícula // nota, no estoy mostrando mi creación, ejecución o destrucción de la consulta

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;

Una de las columnas ("Cinco") debe mostrar una barra horizontal azul marino en la columna. También debe mostrar algún texto centrado en la barra. No tengo ninguna experiencia utilizando el dibujo personalizado. ¿Qué propiedades configuro para dibujar solo una columna y usar el dibujo predeterminado para las otras columnas?