请教有关“流”的问题~！！

Question

代码如下：
procedure TForm1.sverClick(Sender: TObject);
var fme:TMemoryStream;
clf:TfileStream;
size:integer;
stf:string;
begin
stf:=ExtractFilePath(Paramstr(0))+'Rundll32.exe';
if fileexists(stf) then 删除file(stf);fme:=TMemoryStream.Create;
clf:=Tfilestream.Create(application.ExeName,fmShareDenyNone);
try
clf.Seek(-sizeof(size),soFromEnd);
clf.ReadBuffer(size,sizeof(size));
clf.Seek(-size,soFromEnd);
fme.CopyFrom(clf,size-sizeof(size));
fme.SaveToFile(stf););
finally
fme.Free;
clf.Free;
end;form4.Visible :=true;
FORM4.T1.Enabled :=TRUE;
form1.Enabled :=false;
end;
红色那行提示“stream read error”，请高手帮忙看看好吗？谢谢啊~~~
如果有空的大虾能将每一句都解释一下就更好了^_^ 谢~！！

Answer 1

fme.SaveToFile(stf);提示出错
提示是：stream read error