Willkommen in der Delphi-Praxis!
Wenn ich dich richtig verstehe, willst, dass beim Start einer Prozedur eine andere Prozedur aufgerufen wird. Um das zu realisieren, würde ich einfach am Anfang der Prozedur diese andere Prozedur aufrufen:
Delphi-Quellcode:
procedure EreignisProzedur;
begin
// Diese Prozedur wird ausgeführt, wenn die andere Prozedur startet
end;
procedure Procedure1;
begin
EreignisProzedur;
// ...
end;