Socket->ReceiveText() глючит

Здравствуйте все!
По локальной сети приходят текстовые сообщения(не чат).
Мне нужно эти сообщения вывести в RichView и паралельно записать в файл. Но ни как не пойму почему у меня в файл пишется не весь socket.
вот фрагмент проги.

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket)
{
ofstream file;
MyFName_log=MyFName + "\\" +FormatDateTime("yyyymmdd", Now()) + ".log";
file.open(MyFName_log.c_str(), ios::in ios::app);
if (!file) return;
ch = Socket->ReceiveText();
file << ch.c_str();
RichView1->AddTextNL(ch,0,-1,0);
RichView1->FormatTail();
file.close();
}
Заранее спасибо