I fixed myself this issue in FMX.Forms by changing following procedure:
var i: Integer; NewObj: IControl; begin Result := nil; for i := 0 to ChildrenCount - 1 do // add an exception for layouts
begin NewObj := NewObj.FindTarget(P, Data);
if Assigned(NewObj) then Exit(NewObj); end; end;{code}