socket.sendstream + stream.free

[sECuRE]

hi!
ich habs jetzt endlich hinbekommen, ich kann ein file über 'nen socket schicken ;) allerdings noch 'ne kleine frage: wieso kann ich den socket danach nicht richtig freigeben?
ich hab mir 'n array eines records gemacht, genannt dcc[0..100].. so sieht mein code aus

Delphi-Quellcode:

ServerSocket.OnAccept
begin
dcc[0].strm:=TFileStream.Create('E:\testfile.txt',fmOpenRead);
dcc[0].socket.socket.sendstream(dcc[0].strm);
end;

ServerSocket.OnClientDisconnect
begin
dcc[0].socket.close;
dcc[0].data:='';
dcc[0].strm.free;
end;

(mir is klar dass die events nicht stimmen, is nur ne 'skizze')
er bleibt genau bei dcc[0].strm.free; hängen, ich weis nich wieso, wenn ich den socket vorher schließe, dann muss der stream doch eigentlich wieder verfügbar/schließbar sein? mit dcc[0].socket.free; und dem anschliesenden dcc[0].strm.free; gehts auch nich, wenn ich allerdings strm.free entferne/auskommentiere funktioniert es wunderbar, ich brauch den stream allerdings danach wieder.. =/
weis jmd 'ne lösung?