Source position: agraphics.pas line 2010
procedure SetCollision(
Num: LongWord;
Routine: TProcedure;
GInfo: PGelsInfo
);