帮我调试一下下面程序，为何总是说EnumFontsProc没有定义(50分)

procedure TForm1.Button1Click(Sender: TObject);
var
DC:HDC;
begin
DC := GetDC(0);
EnumFonts(DC, nil, @EnumFontsProc, Pointer(FontName.Items));
ReleaseDC(0, DC);
FontName.Sorted := True;
end;

要定义回调函数体啊。
function EnumFontProc(...): Integer;
stdcall;
参数可以看一看 Win32 API Help ，一下子想不起来。

不好意思，我太“菜”了。小分送上，还望以后多指教！