Fórum Contador de instancias #198045

quanto a sua última pergunta:

se você declarar apenas uma das units, o objeto que será executado será a da unit declarada. Mas se você declarar as duas units, então a que vai ser executada é a da última unit declarada.

Crie uma variável global, na parte de implementation.
Então escreva uma função para o read da propriedade, que devolve esta global. Para o seu contador de instâncias, você incrementa-a no Create e decrementa no Destroy.

...
function GetInstaceCount: Integer;
...
property InstanceCount: Integer read GetInstanceCount;
...
var
InternalInstances: Integer;
...
function ...GetInstaceCount: Integer;
begin
Result := InternalInstances;
end;


Quando você necessita diferenciar entre objetos de duas units, você usa qualificação. Po exemplo, tem TBITMAP em Windows e em Graphics, então para acessar a do Windows, usa-se Windows.TBITMAP.