Как считать из бинарного файла AnsiString (ifstream)?

ifstream read("Edit1.txt",std::ios::binary);
int Size;
read.read((char*)&Size,sizeof(int));
AnsiString str;
read.read((char*)&str,Size);// клингонский выводит

ifstream read("Edit1.txt",std::ios::binary);
int stringSize = 0;
read.read((char*)&stringSize, sizeof(int));
std::string str;
str.resize(stringSize);
//std::string str(stringSize, 0); // можно сразу так. создается строка, в которой выделен буфер из stringSize символов.
read.read(str.data(),str.size());

ifstream read("Edit1.txt",std::ios::binary);
int Size;
read.read((char*)&Size,sizeof(int));
 
AnsiString As;
As.SetLength(Size);
 
read.read( (char*) &As[1], Size );

void __fastcall TForm2::Button2Click(TObject *Sender)
{
ifstream read("Edit1.txt",std::ios::binary);
int size;
read.read((char*)&size,sizeof(int));
char *AStr=new char[size];
read.read(AStr,size);
ShowMessage(AStr);
  delete []AStr;
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm2::Button3Click(TObject *Sender)
{
ofstream File("Edit1.txt",ios::out|ios::binary);
AnsiString str="1";
int size=str.Length()+1;
char *AStr=new char[size];
StrCopy(AStr,str.c_str());
 
File.write((char*)&size,sizeof(int));
File.write((char*)AStr,size);
File.close();
delete []AStr;
}

ofstream File("Edit1.txt",ios::out|ios::binary);
AnsiString str="1";
int size=str.Length()+1;
File.write((char*)&size,sizeof(int));
File.write((char*)str.data(),size);
File.close();