Punteros

[rafadrover]

Aclarare el concepto:

type tmapa_bits = class (TObject)
    array de bits
end;

type tmodificador = class (TObject)
    procedure moficica_mapa (mapa: tmapa_bits);
end;

mapa_bits:=Tmapa_bits.create;

mod1:=tmodificador.create;
mod1.modifica_mapa(mapa_bits);

mod2:=tmodificador.create;
mod2.modifica_mapa(mapa_bits);

mod3:=tmodificador.create;
mod3.modifica_mapa(mapa_bits);

Lo que quiero hacer es que los tres modificadores accedan a la misma region de memoria i que modifiquen el mismo objeto tmapa_bits.