function Contar(AStream: TStream): Integer;

Quando chamado é apenas passado a referência do objeto alocado no Heap. E sendo a passagens de parâmetros “register” (padrão do Delphi), esta referência é passada por registradores da CPU, sendo assim, não temos melhora nenhuma em se usar explicitamente Ponteiros.

O mesmo não acontece nos casos de Records ou Arrays, esses sim são passados por Valor o que consomem memória. Como:

type
TMeuRecord = record
A: Double;
B: Integer;
C: array [0..1000] of Integer;
end;

function Boo(AMeuRecord: TMeuRecord): Integer;

Mas nem é necessário usar ponteiro, basta usar a diretriz const assim:

function Boo(const AMeuRecord: TMeuRecord): Integer;

Deste jeito, apenas a referência é passada, e evitamos o problema do uso de memória.

Portanto, não há melhoras de performance em usar ponteiros, pelo menos no que se refere a passagem de parâmetros.

Podemos sim ter ganho de performance em alguns casos específicos, é o caso de manipulação de strings.