GetLogFontFromHFont

function GetLogFontFromHFont(font: HFont): TLogFont;

Returns a LogFont matching the supplied font handle.