TServerSocket - принятые данные

[fezilk25]

Имеется такой код:

FORM1:

procedure TForm2.ServerSocket1GetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread);
begin 
 SocketThread := TMyServerThread.Create( FALSE, ClientSocket );
end;

TMyServerThread:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset, ZConnection,
  ScktComp, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type
  TMyServerThread = class(TServerClientThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;
var
text:string;
implementation
uses Unit2;

{ TMyServerThread }

procedure TMyServerThread.Execute;
var
MySocket: TWinSocketStream;
dest: TFileStream;
begin
  // открываем файл, в который будем записывать полученные данные
  dest := TFileStream.Create('D:\received.dat',fmOpenWrite or fmCreate);
  // создаем поток для работы с сокетом
  // и задаем таймаут 20 сек.
  MySocket := TWinSocketStream.Create(ClientSocket, 20000);
  // блок защиты от сбоев try..finally
  try
  // пока соединение не прервано
  while (not Terminated) and ClientSocket.Connected do begin
  // ждем данных из сокета
  if MySocket.WaitForData(2000) then begin
  // если из потока MySocket (сокет) в поток dest (файл)
  // скопировано 0 байт, то выходим из цикла while
  if dest.CopyFrom(MySocket,1024) = 0 then
  break;
  end;
  end;
  finally
  // закрываем поток сокета
  MySocket.Free;
  // закрываем сокет-соединение
  ClientSocket.Close;
  // закрываем файл
  dest.Free;
  end;
end;

end.

Вылетает ошибка: Stream read error. Как исправить?

[fezilk25]

ап! помогите, пожалуйста! срочно нужно сделать.
видел статью, в которой советуют использовать буфер - но как, не знаю..