Das muss aber nicht die Systemschrift sein. Der Benutzer kann diese ja nach belieben ändern in dem Dialog: Eigenschaften von Anzeige -> Darstellung -> Erweitert. Also so ganz ist das nicht die Lösung. Und warum hast du lfMenuFont genommen und nicht lfCaptionFont zum Beispiel?
Die standard Systemschrift ermittelt man mit
Delphi-Quellcode:
var
FLogFont: TLogFont;
begin
GetObject(GetStockObject(DEFAULT_GUI_FONT), sizeof(FLogFont), @FLogFont);
Das liefert "MS Shell Dlg" zurück, was dann bei XP "Tahoma" entspricht.