Delphi-Help

var

  db: 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;