如何使用adodataset的savetofile和loadfromfile

在窗体上加
ADODataSet1的ConnectionString为FILE NAME=C:\Program Files\Common Files\System\OLE DB\Data Links\BCDEMOS.udlDataSource1的DATESET为ADODataSet1DBGrid1的DataSource为DataSource1Button1Button2
代码为
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, ADODB;type
  TForm1 = class(TForm)
    ADODataSet1: TADODataSet;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.SaveToFile('c:\SaveFile.hxq', pfADTG);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ADODataSet1.LoadFromFile('c:\SaveFile.hxq');
end;end.