[M.A.D.M.A.N.]

Код:

var
  fs: tfilestream;
begin
  fs := tfilestream.create('c:\1.dat', fmCreate);
  try
    stream.position := 0;
    fs.copyfrom(stream, 0 {0 - copy all});
  finally
    fs.free;
  end;
end;