Помогите с кодом отправки и приема...

[prizrak1390]

вот код

    procedure btnTestSocketsClick(Sender: TObject);  
  private  
    FStream: TFileStream;  
    { Private-Deklarationen }  
  public  
    { Public-Deklarationen }  
  end;  

var  
  Form1: TForm1;  

implementation  

{$R *.dfm}  

procedure TForm1.ClientSocket1Read(Sender: TObject;  
  Socket: TCustomWinSocket);  
var  
  iLen: Integer;  
  Bfr: Pointer;  
begin  
  iLen := Socket.ReceiveLength;  
  GetMem(Bfr, iLen);  
  try  
    Socket.ReceiveBuf(Bfr^, iLen);  
    FStream.Write(Bfr^, iLen);  
  finally  
    FreeMem(Bfr);  
  end;  
end;  

procedure TForm1.FormCreate(Sender: TObject);  
begin  
  FStream := nil;  
end;  

procedure TForm1.FormDestroy(Sender: TObject);  
begin  
  if Assigned(FStream) then  
  begin  
    FStream.Free;  
    FStream := nil;  
  end;  
end;  

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;  
  Socket: TCustomWinSocket);  
begin  
  if Assigned(FStream) then  
  begin  
    FStream.Free;  
    FStream := nil;  
  end;  
end;  

procedure TForm1.ClientSocket1Connect(Sender: TObject;  
  Socket: TCustomWinSocket);  
begin  
  FStream := TFileStream.Create('c:\temp\test.stream.html', fmCreate or fmShareDenyWrite);  
end;  

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;  
  Socket: TCustomWinSocket);  
begin  
  Socket.SendStream(TFileStream.Create('c:\temp\test.html', fmOpenRead or fmShareDenyWrite));  
end;

Суть кота в том, что бы отправлять файлы потоком по сети...но как мне узнать сколько я передал байт и сколько еще осталось передеать...?
З.Ы : Код не мой....выкопал где-то

[Stilet]

А ты частями передавай.

[prizrak1390]

Stilet
Если бы я знал как это сделать....(

[prizrak1390]

А как узнать что передача закончена????