beliebige Datei in Stream speichern

[Evilboyz]

ist dieser Code richtig???

Code:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var Data : TStream;
      sBuffer : String;
begin
     while Socket.ReceiveBuf(sBuffer, Socket.ReceiveLength)<>-1 do begin
           Data.Write(sBuffer, length(sBuffer));
     end;
     Data.Free;
end;

... *nichtaufgibt*