Hola tengo un procedimiento en una unit que no es desde donde llamaré al procedimiento
Código Delphi
[-]
procedure miprocedure(Puntero: pointer);
begin
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); end;
procedure TEstadisticasF.Fin;
begin
ShowMessage('ANDA !');
end;
Utilizo Delphi7
muchas gracias