关于ADO和XML的问题,多谢指导,马上给分

procedure TForm1.btnSaveClick(Sender: TObject);
begin
  if SaveDialog1.Execute then
    DataModule2.ADODataSet1.SaveToFile(SaveDialog1.FileName,pfXML);end;procedure TForm1.btnLoadClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
    DataModule2.ADODataSet1.LoadFromFile(OpenDialog1.FileName);
end;