[angvelem]

Можно и без Tag-а обойтись.

Код:

procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
  (Sender as TLabel).Font.Color := clBlack;
end;

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  (Sender as TLabel).Font.Color := clWhite;
end;

Всем TLabel назначить один код.