Не работает отправка файла через сокет

[SARGE]

Народ помогите! Не работает отправка пользователю!

отправка клиенту файла

procedure TForm1.SendFileBtnClick(Sender: TObject);
   var srcfile : TFileStream;
  begin
  i:=(UserListView.Selected.Index);
    {Открываем файл filename}
    srcfile := TFileStream.Create('D:\icons.JPG',fmOpenRead);
    {Посылаем его первому подключенному клиенту}
    ServerSocket.Socket.Connections[i-1].SendStream(send + srcfile);
    {Закрываем файл}
    srcfile.Free;
end;

получение файла от сервера

procedure TForm1.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
   var b: Integer;
    bufs: PChar;
      srcs: TFileStream;
 begin
       {Записываем в l размер полученного блока}
   b := Socket.ReceiveLength;
    {Заказываем память для буфера}
   GetMem(bufs,b+1);
    {Записываем в буфер полученный блок}
   Socket.ReceiveBuf(bufs,b);
    {Открываем временный файл для записи}
   srcs := TFileStream.Create('C:\temp.tmp',fmOpenReadWrite);
  {Ставим позицию в конец файла}
    srcs.Seek(0,soFromEnd);
    {Записываем буфер в файл}
    srcs.WriteBuffer(bufs,b);
    {Закрываем файл}
   srcs.Free;
    {Освобождаем память}
    FreeMem(bufs);
end;