delphiRAD11流文件操作的怪现象

Question

流方式拷贝文件后，文件变了，请大家指点，谢谢！
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打不开，不是图片文件了。真奇怪。

Answer 1

delphi 是真的好复杂！自己试出来了。贴出来，希望新手不走弯路。
只须将fs2.Write(bufSend,L);改成fs2.Write(bufSend[0],L);就好了。