Revisión de código

[ecfisa]

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;

  // columnas y titulos
  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;

  // items y subitems
  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