Usando o Delphi 2010 e um componente TStringGrid, exibo atualmente cinco filds de uma consulta de banco de dados.

Aqui está um exemplo simplificado do que estou fazendo

// configurar a grade

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;

// exibir os dados na grade // note, não estou mostrando minha criação, execução ou destruição da 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;

Uma das colunas ("Cinco") precisa exibir uma barra horizontal azul-marinho no col. Também deve mostrar algum texto centrado na barra. Eu não expereince usando o desenho personalizado. Quais propriedades configuro para desenhar somente uma coluna e usar o desenho padrão para as outras colunas?