关于文件流的问题~~~~~~

将一文件添加到另一个文件的尾部~~
Function Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean;
var
Target,Source:TFileStream;
MyFileSize:integer;
begin
try
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);
Target:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareDenyNone);
try
Target.Seek(0,soFromEnd);//往尾部添加资源
Target.CopyFrom(Source,0);
MyFileSize:=Source.Size+Sizeof(MyFileSize);//计算资源大小,并写入辅程尾部
Target.Write(MyFileSize,sizeof(MyFileSize));
finally
Target.Free;
Source.Free;
end;
except
Result:=False;
close(Target);
Exit;
end;
Result:=True;
end;
调用：
Cjt_AddtoFile('d:\11.txt','d:\22.txt');
memo1.Lines.LoadFromFile('d:\22.txt');
我用文件流的方法将一个文件添加到另一个文件的尾部~~~查看文件已经添加成功~~
但在memo中加载的文件却没有添加~~~这是为什么啊``我想让memo  中也显示添加后的文件啊``