请问出现'variable required' 的原因？
 各位先进好！
   我准备将所有字体名称放到ComboBox1中，但是在'// error'句 compile 时出现错误讯息[Error] XXX.pas(779):variable required.
   请各位先进指点一下出错的原因，谢谢！ 
   code如下:
Procedure TForm1.GetFontNames;
var
  DC:HDC;
  Fonts : TStringList ;
begin
  DC:=GetDC(handle);
  EnumFonts(DC,nil,@EnumFontsProc,Pointer(Fonts)); // error
  ReleaseDC(handle,DC);
  combobox1.Items.Assign(Fonts);
  ComboBox1.Sorted:=True;
end;    function TForm1.EnumFontsProc(var LogFont:TLogFont;var TextMetric:TTextMetric;FontType:Integer;Data:pointer):Integer;stdcall;
begin
 TStrings(data).add(LogFont.lfFaceName);
 Result:=1;
end;

    EnumFonts 所需的是獨立函式的位址，而你傳的是物件函式。
你可以如下改寫    function EnumFontsProc(var LogFont:TLogFont;var TextMetric:TTextMetric;FontType:Integer;Data:pointer):Integer;stdcall;
begin
 TStrings(data).add(LogFont.lfFaceName);
 Result:=1;
end;    Procedure TForm1.GetFontNames;
var
  DC:HDC;
  Fonts : TStringList ;
begin
  DC:=GetDC(handle);
  EnumFonts(DC,nil,@EnumFontsProc,Pointer(Fonts)); // error
  ReleaseDC(handle,DC);
  combobox1.Items.Assign(Fonts);
  ComboBox1.Sorted:=True;
end;