puntero a un procedure en un procedure como parametro

[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;