Source position: bcgamegrid.pas line 27
type TOnRenderControl = procedure(
Sender: TObject;
Bitmap: TBGRABitmap;
r: TRect;
n: Integer;
x: Integer;
y: Integer
) of object;