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