Como pasar un Listview?

[yusnerqui]

Pues yo mantengo mi postura, y de paso, rectifico lo que dije

Además quien a visto que una nana sepa programar.... y mucho menos en delphi.

Para asegurarme de que tienes razón hice la siguiente prueba:

Código Delphi [-]
private
    { Private declarations }
    Obj1 : TStrings;
    Obj2 : TStrings;
    Procedure Intercambia(O1 , O2: TStrings);
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Obj1 := TStringList.Create;
  Obj2 := TStringList.Create;
  Obj1.Add('Prueba') ;
  Intercambia(Obj1,Obj2);
  ShowMessage(Obj2[0]);
end;
procedure TForm1.Intercambia(O1 , O2: TStrings);
 Var
   Temp : TStrings;
begin
 Temp :=  O1;
 O1   :=  O2;
 O2   := Temp
end;
//Esto da un lindo error, pero si la sustituimos por:
Procedure Intercambia(Var O1 , O2: TStrings);
....
 
procedure TForm1.Intercambia( Var O1 ,O2: TStrings);
 Var
   Temp : TStrings;
begin
 Temp :=  O1;
 O1   :=  O2;
 O2   := Temp
end;
 
//Todod Marcha como se espera.

Bueno esto demuestra la teoría de Lepe, por tanto acabo de perder el juicio

Saludos Yusnerqui