如何在Delphi中使用Windows默认字体

Question

如您所知，Windows XP和Windows 7中的默认字体为Tahoma。但在Windows 8和8.1中，它已更改为Segoe UI。

即使我的应用程序在Windows 8.1上运行，其中的默认字体为Tahoma。

所以我的问题是如何用delphi识别默认的Windows字体？因此，当我的应用在Windows XP下运行时，我的labels，textboxes等将以Tahoma字体显示，当我的应用运行时，它们会以Segoe UI字体显示在windows 8下。

顺便说一下，我尝试将字体更改为default，但它没有帮助。