⤷ Copy and delete table

For deleting table use DeleteTable procedure. For copying table use DbiCopyTable function. Don't forget that DbiInit must be called before calling of DbiCopyTable.

uses DbiTypes, DbiProcs;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with Table1 do
  begin
    DatabaseName:='DBDEMOS';
    TableName:='CUSTOMER2';
    TableType := ttParadox;
    DeleteTable;
  end;
end;

procedure FDbiCopyTable(hTmpDb: hDbiDb; SrcTableName: string; 
  DestName: string);
begin
  Check(
    DbiCopyTable(
      hTmpDb, 
      True, 
      PChar(SrcTableName), 
    nil,
    PChar(DestName)));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Table1.Active:=True;
  Check(dbiInit(nil));
  FDbiCopyTable(Table1.dbHandle, 'CUSTOMER.DB', 'CUSTOMER2.DB');
  Table1.Active:=False;
end;
More for developers