Корректно загрузить содержимое файла

TStringList list = new TSringList;
list->LoadFromFile("file.txt");
for (int i=0; i<= list-Count-1; i++) {
  list->Strings[i] = StringReplace(list->Strings[i],"\x00,"\n",
                     TReplaceFlags() <<rfReplaceAll<<rfIgnoreCase);
  Memo1->Lines->Add(list->Strings[i]);
}

Memo->Lines->LoadFromFile(filename);

void __fastcall TForm1::IdUDPServer1UDPRead(TObject *Sender,
      TStream *AData, TIdSocketHandle *ABinding)
{
 TStringList* list = new TStringList;
 list->LoadFromStream(AData);
 for (int i=0; i<= list->Count-1; i++) {
  list->Strings[i] = StringReplace(list->Strings[i],"\x00","\n", TReplaceFlags() <<rfReplaceAll<<rfIgnoreCase);
  Memo1->Lines->Add(list->Strings[i]);
 }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *list = new TStringList();
  char buf = '\x00';
  list->Add(buf);
  list->Add("Admins");
  list->Add(buf);
  list->Add("identity");
  list->Add(buf);
  list->Add("group");
  list->Add(buf);
  list->Add("Коммантарий");
  Memo1->Clear();
  for (int i = 0; i <= list->Count-1; i++) {
    list->Strings[i] = StringReplace(list->Strings[i], '\x00', '\n',
                       TReplaceFlags() << rfReplaceAll << rfIgnoreCase);
    Memo1->Lines->Add(list->Strings[i]);
  }
}

TStringList *list = new TStringList();
 char buf = '\x00';
 list->Add("Test text");
 list->Add(buf);
 list->Add("Test text #2");
 list->Add(buf);
 list->Add("Test text #3");
 list->Add(buf);
 list->SaveToFile("C:\\test.txt");
 
 list->Clear();
 list->LoadFromFile("C:\\test.txt");
 for (int i = 0; i <= list->Count-1; i++)
 {
  list->Strings[i] = StringReplace(list->Strings[i], '\x00', '\n',
                       TReplaceFlags() << rfReplaceAll << rfIgnoreCase);
  Memo1->Lines->Add(list->Strings[i]);
 }
 delete list;
 list = NULL;

TFileStream* fs=new TFileStream("recv.txt",fmOpenRead);
Memo1->Lines->LoadFromStream(fs);

 int handle=FileOpen("c:\\recv.txt",fmOpenRead);
 int fsize=FileSeek(handle,0,2);
 char buf[1];
 AnsiString res="";
 FileSeek(handle,0,0);
 for (int t=0;t<fsize;t++)
 {
  FileRead(handle,buf,1);
  if (!buf[0]) buf[0]=0xFF; // заменяете на что нужно
  res=res+buf[0];
 }
 FileClose(handle);
 Memo1->Lines->Add(res);

TStringList *strLst=new TStringList();
AnsiString asFileName="C:\\test.txt";
strLst->LoadFromFile(asFileName);
for(int i=0;i<strLst->Count;i++)
{
  AnsiString asStr=strLst->Strings[i];  
  while(asStr.Pos(AnsiString('\x00')))
  {
    Memo1->Lines->Add(asStr.SubString(1,asStr.Pos('\x00')-1));
    asStr.Delete(1,asStr.Pos('\x00')+AnsiString('\x00').Length()-1);
  }
  if(!asStr.IsEmpty()) Memo1->Lines->Add(asStr);
}
delete strLst;