VCL Delphi

{That's all! The OnClick is already declared in TControl as a
protected property. All you have to do is publish it, register the
derived component}
TGroothuisGrid = class(TDBGrid) {!}
published
property OnClick;
end;