puntero a un procedure en un procedure como parametro
 

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

Hola, puedes hacer algo asi

Código Delphi [-]
type
     TProcedure = procedure;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure Call(P : TProcedure);
begin
     p;
end;

procedure Test;
begin
     ShowMessage('test');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     Call(Test);
end;

end.

predefiniendo el tipo. En la ayuda de delphi (procedure pointers) veras varios ejemplos. Un saludo.

Muchas gracias Coso,

al final me quedo ok de la siguiente manera (y necesité más parametros)