Volcar dos listview en uno

[danielmj]

Vuelta a la carga,

Sigo insistiendo con los listview y siguen sin salirme, he modificado un poco tu codigo para usarlo en un ejemplo nuevo ecfisa, ¿podriais indicarme sobre los comentarios en el código donde cometo el error?

Código Delphi [-]
procedure JoinListViews(LV1, LV2, LV3: TListView);
var
  i,j: Integer;
  li: TListItem;
begin
  for j:= 0 to 6 do
  begin
    LV3.Columns.Add;
    LV3.Column[j].Width:= 60;
  end;
  LV3.Column[1].Caption:= 'REF';
  LV3.Column[2].Caption:= 'NOMBRE';
  LV3.Column[3].Caption:= 'APELLIDOS';
  LV3.Column[4].Caption:= 'LOCALIDAD';
  LV3.Column[5].Caption:= 'PROVINCIA';
  LV3.Column[6].Caption:= 'TLF';



  for j:= 0 to LV1.Items.Count-1 do  //cuenta los elementos de la lista NO las columnas ¿correcto?
  begin
    for i:= 0 to LV1.Columns.Count-2 do  //cuenta las columnas ¿correcto?
    begin
      li:= LV3.Items.Add;
      li.SubItems.Add(LV1.Items.Item[j].Caption);  //ESTA LINEA ES LA REFERENCIA EN LA LISTA1
      li.SubItems.Add(lv1.Items.Item[i].SubItems.Strings[j]); // CON ESTA LINEA INTENTO AGREGAR EL CONTENIDO DE-
      //LA FILA 1, COLUMNA 2 DE LISTVIEW1 en la misma posicion pero del listview3 ¿POR QUE NO ESTÁ BIEN? ¿DONDE COMETO EL ERROR?
    end;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  JoinListViews(ListView1, ListView2, ListView3);
end;

Ya no es tanto por el proyecto en si, sino por comprender como funciona este maldito control.
Un saludo.