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;