Передача больших файлов чрез сокет

[D_E_N]

привет всем в сети накопал код

{Посылка файла через сокет}
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;

подскажите пожалуйста в чем проблема?
и можно ли передавать таким способ файлы больше 100мб?
и можно ли и как можно вывести на progressbar прогресс отправки
был на этом посте http://www.programmersforum.ru/showthread.php?t=5617
но ответа так и не нашел