Delphi-Quellcode:
Function MouseInLabel : boolean;
begin
result := false;
if (mouse.x > label1.left) and (mouse.x < (label1.left + label1.width))
and (mouse.y > label1.top) and (mouse.y < (label1.top + label1.height)) then
result := true;
end;
Einfach noch so umschreiben, dass man das Label und die Mauskoordinaten übergeben kann. Sieht für mich nicht sonderlich kompliziert aus.