Помогите с отправкой массива через clientsocket

[Romer9999]

Здравствуйте!, помогите пожалуйста отправить массив через clientsocket
есть массив a:array [1..2000] of string[100];
отправка производится с помощью
clientsocket1.Socket.SendBuf(a,2000 );
на стороне сервера приём осуществляется:

PHP код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
buf:=socket.ReceiveText;

if flag=true then begin
memo1.Lines.Add('óñëîâèå ïîøëî');
     dlina:=socket.ReceiveLength;
    flag:=false;
    memo1.Lines.Add('ôëàã ôàëñ');
    memo1.Lines.Add('÷òåíèå ïðèñëàíîãî áóôåðà äëèíà =' +inttostr(dlina));
    socket.ReceiveBuf(a,dlina);
       memo1.Lines.Add('ïðî÷òåí çàïèñü â ìåìî');
    for i:=1 to dlina do begin
    memo1.Lines.Add(a[i]);
    end; // for
    memo1.Lines.Add('óñëîâèå çàêîí÷åíî');
 end; // óñëîâèå
end; 


ошибку никакую не выдаёт просто ничего не приходит если кто знает почему ответте пожалуйста

[Пепел Феникса]

хм...вы хоть уверены что отправляете?

var i:integer;
     M:TMemoryStream;
begin
 M:=TMemoryStream.Create;
 for i:=1 to 2000 do M.Write(a[i,1],100);
 ClientSocket1.Socket.SendStream(M);
 M.Free;
end;