H hpretty Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-06 #2 以下就可以的: Font.Style := Font.Style + fsUnderline;