[Alegun]

А что если радикально, пользуя сам компонет, через файловый поток

Код:

var
  fs: TFileStream;
  ...
{Сохранить} fs:= TFileStream.Create('tv.sav', fmCreate or fmShareCompat);
{Загрузить} fs:= TFileStream.Create('tv.sav', fmOpenRead or fmShareDenyWrite);
  try
{Сохранить} fs.WriteComponent(TreeView1);
{Загрузить}  fs.ReadComponent(TreeView1);
   finally
    fs.Free;
  end;
  ...