socket

[Наталья]

Как передавать файлы через Socket'ы. Скинте примеры рабочие, please. Есть примеры, но они выдают ошибку на прием  - ошибка адреса:
{Посылка файла через сокет}
  procedure SendFileBySocket(filename: string);
   var srcfile: TFileStream;
  begin
    {Открываем файл filename}
    srcfile := TFileStream.Create(filename,fmOpenRead);
    {Посылаем его первому подключенному клиенту}
    ServerSocket1.Socket.Connections[0].SendStream(srcfile);
    {Закрываем файл}
    srcfile.Free;
  end;


{Прием файла через сокет}
  procedure TForm1.ClientSocket1Read(Sender: TObject;
    Socket: TCustomWinSocket);
   var l: Integer;
       buf: PChar;
       src: TFileStream;
  begin
    {Записываем в l размер полученного блока}
    l := Socket.ReceiveLength;
    {Заказываем память для буфера}
    GetMem(buf,l+1);
    {Записываем в буфер полученный блок}
    Socket.ReceiveBuf(buf,l);
    {Открываем временный файл для записи}
    src := TFileStream.Create('myfile.tmp',fmOpenReadWrite);
    {Ставим позицию в конец файла}
    src.Seek(0,soFromEnd);
    {Записываем буфер в файл}
    src.WriteBuffer(buf,l);
    {Закрываем файл}
    src.Free;
    {Освобождаем память}
    FreeMem(buf);                      (ОШИБКА!!!!! Выдается в этой строке.)
  end;

[Серж]

Насколько я понимаю, нужно вместо
Socket.ReceiveBuf(buf,l);
.....
src.WriteBuffer(buf,l);
писать
Socket.ReceiveBuf(buf^,l);
.....
src.WriteBuffer(buf^,l);

[Наталья]

Большое спасибо!!!! Все получилось.