[YVitaliy]

Код:

Procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Tlabel(sender).Color:=clred;
end;