关于F1Book的SaveFileDlgEx()的用法，请看我得源码哪错了？(20分)

请教F1Book的SaveFileDlgEx()的用法。我这样用总是出现Access violation错误。
procedure TForm1.Button3Click(Sender: TObject);
var
pFileSpec:F1FileSpec;
begin
F1Book1.SaveFileDlgEx ('Save Account', pFileSpec);
F1Book1.WriteEx(pFileSpec.Name, pFileSpec.type_);
end;

你看一下Formula One中关于SaveFileDlgEx的例程:
Dim fInfo As New F1FileSpec
~~~~~~
注意到了吗
F1Book1.SaveFileDlgEx "", fInfo
F1Book1.WriteEx fInfo.Name, fInfo.Type

在Delphi中生成这个F1FileSpec对象要自己做.
use comobj;
procedure TForm1.Button1Click(Sender: TObject);
var
pFileSpec: F1FileSpec;
begin
pFileSpec := CreateComObject(CLASS_F1FileSpec) as IF1FileSpec;
F1Book61.SaveFileDlgEx('Save Account', pFileSpec);
F1Book61.WriteEx(pFileSpec.Name, pFileSpec.type_);
end;

to blue,谢谢你！

接受答案了.