[cloayza]

Amigo

Código Delphi [-]
var
      Lista3:TStrings;
begin
       //Talvez el procedimiento no está creando el objeto Lista3

       BuscarArchivos4(Carpeta, '*.cod', faAnyFile, Lista3);

       //Verifica que el objeto este creado...
       If Assigned(Lista3) Then
       begin
              Lista3.Text:=QuitarSaltosLinea(Lista3,'');
              Showmessage(Lista3.Text);
              Lista3.free;
       end;
end;