Source position: bcgamegrid.pas line 29
type TOnClickControl = procedure(
Sender: TObject;
n: Integer;
x: Integer;
y: Integer
) of object;