フォームにTTabelとTButtonとTOpenDialogを貼り付けてボタンのOnClickイベ
ントに書いて下さい。
Usesに BDE を追加しておいて以下のようにしてみてください。

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Table1,OpenDialog1 do begin
    Filter:='DBF|*.DBF|ALL|*.*';
    if Execute then begin
      DatabaseName:=ExtractFilePath(Filename);
      TableName:=ExtractFilename(Filename);
      Exclusive:=true;
      open;
      try
        check(DbiPackTable(DBHandle,Handle,nil,szDBASE,true));
      finally
        close
      end
    end
  end
end;


注：With を使わなかった場合同じ物です

procedure TForm1.Button1Click(Sender: TObject);
begin
    OpenDialog1.Filter:='DBF|*.DBF|ALL|*.*';
    if OpenDialog1.Execute then begin
      Table1.DatabaseName:=ExtractFilePath(OpenDialog1.Filename);
      Table1.TableName:=ExtractFilename(OpenDialog1.Filename);
      Table1.Exclusive:=true;
      Table1.open;
      try
        check(DbiPackTable(Table1.DBHandle,
                           Table1.Handle,nil,szDBASE,true));
      finally
        Table1.close
      end
    end
  end
end;

＃ＦＡＱに載ってたっけ？

神無月。降霜、涼風の舞 FDELPHI ☆ 瑠瓏 <KHB05271@niftyserve.or.jp>
                      FJBUILDR    Wed,10/29/97  15:58

Original document by 瑠瓏            氏 ID:(KHB05271)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。