Hola.
Te pongo un ejemplo que crea las seis columnas con sus títulos y agrega los seis items del ListBox en cada columna creada:
Código Delphi
[-]
...
var
col: TListColumn;
it : TListItem;
i : Integer;
begin
ListView1.ViewStyle := vsReport;
for i := 0 to ListBox1.items.Count-1 do
begin
col := ListView1.Columns.Add;
col.Caption := Format('Campo %d',[i+1]);
col.Width := ListView1.Canvas.TextWidth('Campo 0')+20;
end;
it := ListView1.Items.Add;
it.Caption := ListBox1.Items[0];
for i := 1 to ListBox1.Items.Count-1 do
it.SubItems.Add(ListBox1.Items[i]);
end;
Muestra:
Saludos