vardb: TDatabase; Desc: CRTblDesc; begin
db := PriceTable.OpenDatabase; FillChar( Desc, SizeOf( Desc ), #0 ); StrCopy( Desc.szTblName, PChar( PriceTable.TableName ) ); StrCopy( Desc.szTblType, szParadox ); StrCopy( Desc.szPassword, 'password' ); Desc.bProtected := TRUE
; Check( DbiDoRestructure( db.Handle, 1, @Desc, nil
, nil
, nil
, FALSE
) ); end
;