F1Book 另存为Excel文件(有代码)？(20分)

代码如下，fp是否需要赋值，请指教：
procedure TfrmFindPrint.Button10Click(Sender: TObject);
var
fp:F1FileSpec;
begin
F1Book1.SaveFileDlgEx('',fp)
//错误内容：地址找不到
F1Book1.Write(fp.Name,fp.Type_);
end;
procedure TF1Book1.SaveFileDlgEx(const Title: WideString
const pFileSpec: IF1FileSpec);
begin
DefaultInterface.SaveFileDlgEx(Title, pFileSpec);//运行时pFileSpec=nil
end;

究竟是为何？怎么没人回答呀？

有人知道吗?

F1Book1.Write(FileName,F1FileExcel97);

F1FileExcel5 4 Excel 5 and 7/95
F1FileExcel97 11 Excel 97/Excel 8
F1FileFormulaOne3 5 Formula One 3.x, 4.x and 5.x
F1FileFormulaOne6 12 Formula One 6
F1FileHTML 9 HTML (write only)
F1FileHTMLDataOnly 10 HTML Data (write only)
F1FileTabbedText 3 Tabbed text
F1FileTabbedTextValuesOnly 6 Tabbed text (values only)

谢谢你的帮助！！