Server Client Streamprobleme ?

[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