ListView com ProgressBar

Saudações amigos peço ajuda para esta questão :
Tenho um tabela onde uso os dados para ser mostrado num ListView numas das colunas e para cada linha gostaria de mostrar graficamente o valor por ProgressBar mas conforme a fig. só aparece na primeira linha as outras não aparece, depois de tanta pesquisa sóme restou pedir ajuda no Furom.
o linha degitada é a seguinte :
Procedure TForm1.CriarLista ;
var
ListItem: TListItem; // Criamos uma variável para guarda os itens do Listview
r: TRect;
pb: TProgressBar;
valorz: Integer;

begin

// Limpa o Conteudo Existente no ListView
ListView2.Clear;

Listview2.Columns.Add.Width := 100;
Listview2.Columns.Add.Width := 200;

// Posicionamos no Primeiro Registro
ADOTable1.First;


while not ADOTable1.Eof do
begin

// Adicionamos um Item ao ListView
ListItem := ListView2.Items.Add;

// Verifica qual o Icone deve ser apresentado
if ADOTable1.FieldValues['DESTINO'] = 'ACABAMENTO' then

ListItem.ImageIndex := 0
else

ListItem.ImageIndex := 1;

// Adicionamos dados a Coluna Login
ListItem.Caption:=ADOTable1.FieldValues['DESTINO'];// Dm.SqUserslogin.Value;

// Adicionamos a Coluna Nome do Usuario
ListItem.SubItems.Add(FormatFloat('##0.00',StrToFloat(ADOTable1.FieldByName('VALOR').AsString)));//(ADOTable1.FieldValues['VALOR']);

valorz:=(trunc(ADOTable1.FieldValues['VALOR']));
r := Listview2.Items[0].DisplayRect(drBounds);
r.Left := r.Left + Listview2.columns[0].Width;
r.Right := r.Left + Listview2.columns[1].Width;
pb := TProgressBar.Create(nil);
pb.Parent := Listview2;
pb.BoundsRect := r;
pb.Position :=valorz;
Listview2.Items[0].Data := pb;[img:descricao=FIG. resultado]http://arquivo.devmedia.com.br/forum/imagem/169050-20150415-185815.jpg[/img]

// Mudamos para o proximo registro
ADOTable1.Next;

end;