100分,请大家帮我看看这段简单代码的错误？？

Question

procedure TForm1.Button2Click(Sender: TObject);
var
  cds:TClientDataset;
  v:Olevariant;
  Source:TFileStream;
  //Target:TFileStream;
  MyFileSize:integer;
begin
  cds:=TClientDataset.Create(self);
  Source:=TFileStream.Create('pcs1.xml',fmOpenRead or fmShareDenyNone);
 // cds.LoadFromFile('pcs2.xml');
  MyFileSize:=Source.Size+sizeof(Myfilesize);
  Source.Seek(-sizeof(MyFileSize),soFromEnd);
  Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));//读出资源大小
  Source.Seek(-MyFileSize,soFromEnd);//定位到资源位置
  cds.LoadFromStream(source);
  v:=cds.Data;
  Source.Free;
  ClientDataset1.AppendData(v,true);
  cds.Free;
end;

Answer 1

程序没有错，是不是没有加DB和dbclient单元。