procedure TForm1.Label32MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Shellexecute(handle, nil, pchar('http://www.ezyf.com'), nil, nil, sw_shownormal);
end;

procedure TForm1.Label32MouseLeave(Sender: TObject);
begin
  label32.Font.Color := clBlack;
  label32.Cursor := crdefault;
  label32.Font.Style := [];
end;

procedure TForm1.Label32MouseEnter(Sender: TObject);
begin
  label32.Font.Color := clred;
  label32.Cursor := crHandPoint;
end;