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

[[coso]]

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.

[fcios]

Muchas gracias Coso,

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

Código PHP:

type
  TProcedure2= procedure(WS: TExcelWorksheet; var nLinea1:integer; var nLineaDesdeDatos1,nUltimaCol1:byte);


procedure miprocedure(PunteroaUnProcedure: TProcedure2);
var WS: TExcelWorksheet; nLinea:integer; 
   nLineaDesdeDatos,nUltimaCol:byte
begin
  // hago un monton de cosas
// y ahora si le mande algo a PunteroaUnProcedure llamo al procedimiento que apunte

  if @PunteroaUnProcedure <>  nil then
    PunteroaUnProcedure(ws,nLinea,nLineaDesdeDatos,nUltimaCol);
end;
  
//--
en la unit ppal tengo

miprocedure(Fin); // el llamado ppal

// el procedure a ejecutar
procedure Fin(WS: TExcelWorksheet; var nLinea:integer; var nLineaDesdeDatos,nUltimaCol:byte);
var n:Word;
begin
   ShowMessage('ANDA !');
end;