Label unter Mausposition

[faux]

So müsste es gehen:

Delphi-Quellcode:

procedure TFormname.OnLabelMouseMove(Sender: TObject......);
var
  LabelName: String;
begin
  LabelName := (Sender as TLabel).Name;
end;

Einfach jedes Label mit dieser Procedure im OnMouseMove verlinken.

Grüße
Faux