ServerSocket и ClientSocket обмен данными

Подскажите как обмен данными идет через SendText и ReceiveText в данных компонентах (ServerSocket и ClientSocket). А то посылаю с клиента на сервер массив строковый, построчно посылаю.... А ощущение, что приходит несколько строк, потом целый комок со строчками, подряд склеенными, потом опять по одной, в общем безобразие получается =(

Добавлено через 15 часов 27 минут
Попробую в таймере посылать....

Добавлено через 10 минут
Нельзя через таймер =(

Добавлено через 1 час 5 минут
Вот что нашел SendText() не есть факт физической отправки данных, это просто постановка данных в очередь передачи... => поэтому и копятся, иногда не успевает забрать клиент, в результате приходят пачкой.
На одном из форумов нашел решение разделитель поставить, в итоге получилось
extern klientu(AnsiString OMyGod) //функция добавляет разделитель в строчку
{
Form1->ServerSocket1->Socket->Connections[0]->SendText(OMyGod+"~");
}
--------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket) //Приемная, делим строку на подстроки....
{
AnsiString Lopata = Socket->ReceiveText();
while (Lopata.Length()>1){
AnsiString Lopatka=Lopata.SubString(1,Lopata.Pos('~ ')-1);
Lopata=Lopata.Delete(1,Lopata.Pos('~'));
Memo1->Lines->Add(Lopatka);
}
}
Не знаю, может проще есть способ (компоненты может другие использовать), не нашел во всяком случае

0

Indy компоненты

1