nonvcl Font problem (ListBox)

[EWeiss]

Ich erstelle einen DefaultFont
TMListBox.hFont := DefaultFont;

Delphi-Quellcode:

function TListBox.DefaultFont: HWND;
begin
  if hFDefault = 0 then
    hFDefault := GetStockObject(ANSI_VAR_FONT);

  Result := hFDefault;
end;

und weise den der Listbox zu!
SetCTLFont(TMListBox.hWnd, TMListBox.hFont);

Delphi-Quellcode:

procedure TListBox.SetCTLFont(hCtL: HWND; Font: hFont);
begin
  SendMessage(hCtL, WM_SETFONT, Font, 1);
end;

Anwendung startet alles ok.
Sobald ich nun die Listbox aufrufe kracht es.

gruss Emil