delphiRAD11流文件操作注意

流方式拷贝文件这样是不行的！
var
fs,fs2:TFileStream;
L:int64;
bufSend:array of byte; //声明动态数组 　　
const
groupsize:int64=8192;
begin
fs:=TFileStream.Create('d:\pic.jpg',fmOpenRead);
fs2:=TFileStream.Create('d:\test.jpg',fmCreate);
fs.Position:=0;

while fs.Position< fs.Size-1 do begin
L:=fs.Size-1-fs.Position;
if L>groupsize then L:=groupsize;
SetLength(bufSend, L); //设置动态数组的长度
L:=fs.Read(bufSend[0],L);
fs2.Write(bufSend,L);
end;
FreeAndNil(fs);
FreeAndNil(fs2);

运行后D:\test.jpg打不开，不是图片文件了。

应该将fs2.Write(bufSend,L);改为fs2.Write(bufSend[0],L);