안녕하세요. [미남]에용...

질문하신 의도가 정확히 무엇인지는 모르겠지만....
대충 리치에디트에서 블럭을 선택한 부분에 대한 폰트이름을 알고싶으
신걸루 알고 답변 드립니다.

if RichEdit1.SelLength > 0 then
   Label.Caption := RichEdit1.SelAttributes.Name;

이렇게 하시면 라벨에 폰트의 이름이 나타납니다.

아니면 혹시 본인컴에 설치된 윈도우폰트 정보가 알고 싶으시다면
http://mars.chonnam.ac.kr/~u9389040
제 홈페이지인데 여기에 꽤 많은 정보가 있습니다.
참고가 되셨기를....