Texthöhe ermitteln

[Amateurprofi]

Um die Höhe eines Textes zu ermitteln, benutze ich folgende Funktion

Delphi-Quellcode:

FUNCTION GetFontHeight(FontHandle:HFont):integer;
var DC:HDC; OldFont:HFONT; Metrics:TTextMetric;
begin
   DC:=GetDC(0);
   try
      OldFont:=SelectObject(DC,FontHandle);
      GetTextMetrics(DC, Metrics);
      SelectObject(DC,OldFont);
   finally
      ReleaseDC(0,DC);
   end;
   Result:=Metrics.tmHeight;
end;

Nun möchte ich die Höhe des Textes bei gegebenem Font, aber mit einem anderen Font.Size und/oder Font.Style ermitteln OHNE den Font.Size/Style des betreffenden Controls zu verändern.

Wie kann ich das am einfachsten realisieren?