puntero a un procedure en un procedure como parametro

[fcios]

Hola tengo un procedimiento en una unit que no es desde donde llamaré al procedimiento

Código Delphi [-]
procedure miprocedure(Puntero: pointer);
begin
  // hago un monton de cosas
// y ahora si le mande algo a Puntero llamo al procedimiento o funcion que apunte pero como ?

if Puntero <> nil then puntero

end;
  
//--

y en la unit ppal tengo definido el procedimiento ppal y al que quiero mandar

procedure TEstadisticasF.Estadistica1BBClick(Sender: TObject);
begin
  miprocedure(@Fin); // no anda , como es la forma correcta de pasarlo ?
end;

procedure TEstadisticasF.Fin;
begin
  ShowMessage('ANDA !');
end;

Utilizo Delphi7
muchas gracias