[mierda]

Hola, estoy intentado copiar un treeview de un ordenador a otro ordenador, y lo estoy intentando como lo he visto en un truco:

Para grabar:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var 
   CorrienteF: TFileStream;
begin 
  CorrienteF:=TFileStream.Create('c:\kk\TV1',fmCreate or fmShareCompat);
  CorrienteF.WriteComponent(Tv1);
  CorrienteF.Free;
end;

Y para cargar:

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var 
   CorrienteF:TFileStream;
begin 
  CorrienteF:=TFileStream.Create('c:\kk\TV1',fmOpenRead or fmShareDenyWrite);
  CorrienteF.ReadComponent(Tv1);
  CorrienteF.Free;
end;

pero no me funciona nada bien, asi que antes de ir recorriendo nodo a nodo y guardarlo en un txt, me gustaria saber si alguien me dice como hacerlo de otro modo.

Gracias, un saludo.