Сохранение VirtualTreeString в файл

[ДмитрийЛАСТ]

Здравствуйте!
Подскажите пожалуйста, как сохранить содержимое сего компонента в файл.
Ниже приведенный код не отображает текст нодов:

Код:

void __fastcall TGlav_Form::N5_N2_N1Click(TObject *Sender)
//Сохранить
{
if (SaveDialog2->Execute()) {
Result_VST->SaveToFile(SaveDialog2->FileName + ".dat");
}
}
//---------------------------------------------------------------------------
void __fastcall TGlav_Form::N5_N2_N2Click(TObject *Sender)
//Загрузить
{
if (OpenDialog2->Execute()) {
Result_VST->LoadFromFile(OpenDialog2->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TGlav_Form::Result_VSTSaveNode(TBaseVirtualTree *Sender, PVirtualNode Node,
          TStream *Stream)
{
try {
TListRecordResult *InfoNode_TextFind = (TListRecordResult*)Sender->GetNodeData(Node);
TWriter *Writer = new TWriter(Stream, 8096);
Writer->WriteString(InfoNode_TextFind->PoleRec_0);
Writer->WriteString(InfoNode_TextFind->PoleRec_1);
Writer->WriteString(InfoNode_TextFind->PoleRec_2);
Writer->WriteString(InfoNode_TextFind->PoleRec_3);
Writer->WriteString(InfoNode_TextFind->PoleRec_4);
Writer->WriteString(InfoNode_TextFind->PoleRec_5);
Writer->WriteString(InfoNode_TextFind->PoleRec_6);
Writer->WriteInteger(InfoNode_TextFind->PoleRec_7);
delete Writer;
} catch (...) {
}
}
//---------------------------------------------------------------------------
void __fastcall TGlav_Form::Result_VSTLoadNode(TBaseVirtualTree *Sender, PVirtualNode Node,
  TStream *Stream)
{
try {
TListRecordResult *InfoNode_TextFind = (TListRecordResult*)Sender->GetNodeData(Node);
TReader *Reader = new TReader(Stream, 8096);
InfoNode_TextFind->PoleRec_0 = Reader->ReadString();
InfoNode_TextFind->PoleRec_1 = Reader->ReadString();
InfoNode_TextFind->PoleRec_2 = Reader->ReadString();
InfoNode_TextFind->PoleRec_3 = Reader->ReadString();
InfoNode_TextFind->PoleRec_4 = Reader->ReadString();
InfoNode_TextFind->PoleRec_5 = Reader->ReadString();
InfoNode_TextFind->PoleRec_6 = Reader->ReadString();
InfoNode_TextFind->PoleRec_7 = Reader->ReadInteger();
delete Reader;
} catch (...) {
}
}
//---------------------------------------------------------------------------

Заранее благодарен.