program Test;

uses
 Windows, KOL;

var
 Panel, Label1, Label2: PControl;

procedure DoClick(Dummy: Pointer; Sender: PObj);
begin
 if PControl(Sender).Parent = Panel then
   ShowMsg('Child:'+PControl(Sender).Caption,MB_OK)
 else
   ShowMsg('Panel',MB_OK)
end;

begin
 Applet := NewForm(nil,'Test').SetClientSize(120,120);
 Panel := NewPanel(Applet,esRaised).SetAlign(caClient).SetBorder(20);
 Label1 := NewLabel(Panel,'LABEL1');
 Label2 := NewLabel(Panel,'LABEL2').PlaceDown;
 Label1.Color := clRed;
 Label2.Color := clRed;
 Panel.OnClick := TOnEvent(MakeMethod(nil,@DoClick));
 Label1.OnClick := TOnEvent(MakeMethod(nil,@DoClick));
 Label2.OnClick := TOnEvent(MakeMethod(nil,@DoClick));
 Run(Applet);
end.

function TControl.ControlAtPos( X, Y: Integer; IgnoreDisabled: Boolean ): PControl;
var I: Integer;
   C: PControl;
   CR, VR: TRect;
begin
  Result := nil;
  CR := ControlRect;
  if Windowed then
     CR := MakeRect( 0, 0, 0, 0 );
  X := X + CR.Left; // - R.Left;
  Y := Y + CR.Top; // - R.Top;
  for I := ChildCount { + MembersCount } - 1 downto 0 do
  begin
     C := Children[ I ]; //Members[ I ];
     if C.Visible then
     if (not IgnoreDisabled) or IgnoreDisabled and C.Enabled then
     begin
        VR := C.ControlRect;
        if (X >= VR.Left) and (X < VR.Right) and
           (Y >= VR.Top) and (Y < VR.Bottom) then
        begin
           Result := C;
           Exit;
        end;
     end;
  end;
end;