var ts,td : TTable; bm : TBatchMove;
begin
  if(ParamCount= 3 ) then begin 
    if(ParamStr( 1 )='-dbf') then begin
      ts := TTable.Create(nil);
      td := TTable.Create(nil);
      ts.tablename := ParamStr( 2 ); ts.TableType := ttParadox;
      td.tablename := ParamStr( 3 ); td.TableType := ttDBase;
      bm := TBatchMove.Create(nil);
      bm.Destination := td;
      bm.Source := ts;
      bm.Mode := batCopy;
      bm.Execute;
      bm.Free;
      ts.Free;
      td.Free;