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