Server Client Stream ??

[Vader]

hallo,

hab da eine server clientanwendung gecodet.
der server schickt bei stream eine datei den client.
es funktioniert wunderbar aber nur die datei darf
nicht größer sein als 8kb.

client

Code:

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  errorcode := 0;
  StatusBar1.SimpleText := 'Error'; 
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 StatusBar1.SimpleText := 'Disconnect'; 
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  StatusBar1.SimpleText := ' Connect';
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
ClientSocket1.Active := true;
end;


procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var FStream : TFileStream;
  size: integer;
  pBuffer: Pointer;

   begin

      if SaveDialog1.Execute then
      begin
      FStream := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmOpenWrite);
      end;
  try
    Size := Socket.ReceiveLength;
    GetMem(pBuffer, Size); 
    Socket.ReceiveBuf(pBuffer^, Size); 
    FStream.Write(pBuffer^, Size);

  finally 
    FreeMem(pBuffer);
  end; 

end;

end.

server

Code:

procedure TForm1.FormCreate(Sender: TObject);

begin
 serversocket1.Active:=true;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  FStream: TFileStream;

   begin
     FStream := TFileStream.Create('c:\bico.txt', fmOpenRead);
     ServerSocket1.Socket.Connections[0].SendStreamThenDrop(FStream);
   end;
        
end.

was ist da falsch, habe im forum gesucht und habe entdeckt
das mehrere user dieses problem haben ???

mfg vader