有人用过F1Book的EditCopy函数吗?不知为何调试到这句话,老报"unable to open clipboard"的错误(不是病毒.)(50分)

有人用过F1Book的EditCopy函数吗?
不知为何调试到这句话,老报"unable to open clipboard"的错误
(确定不是病毒.)

程序为:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
AxCtrls, OleCtrls, TTF160_TLB, StdCtrls;
type
TForm1 = class(TForm)
F1BYzp: TF1Book;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
nPages:integer;
{ Private declarations }
public
procedure CopyPage(nDstSheet,nSrcSheet,MaxRow,MaxCol:integer);
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.CopyPage(nDstSheet, nSrcSheet, MaxRow, MaxCol: integer);
var
i:integer;
Height,Width:integer;
begin
F1BYzp.Sheet:=nSrcSheet;
F1BYzp.SetSelection(1,1,MaxRow,MaxCol);
F1BYzp.EditCopy;
F1BYzp.Sheet:=nDstSheet;
F1BYzp.SetSelection(1,1,MaxRow,MaxCol);
F1BYzp.EditPasteSpecial(F1PasteAll,F1PasteOpNone);
for i:=1 to MaxRowdo
begin
F1BYzp.Sheet:=nSrcSheet;
height:=F1BYzp.RowHeight;
F1BYzp.Sheet:=nDstSheet;
F1BYzp.RowHeight:=height;
end;
for i:=1 to MaxColdo
begin
F1BYzp.Sheet:=nSrcSheet;
width:=F1BYzp.ColWidth;
F1BYzp.Sheet:=nDstSheet;
F1BYzp.ColWidth:=width;
end;
F1BYzp.ShowRowHeading:=false;
F1BYzp.ShowColHeading:=false;
F1BYzp.ShowGridLines:=false;
F1BYzp.ShowSelections:=2;
F1BYzp.MaxCol:=MaxCol;
F1BYzp.MaxRow:=MaxRow;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
nPageNow:integer;
//当前页
i,j:integer;
strTmp:string;
begin
inc(nPages);
//新建一页
F1BYzp.NumSheets:=nPages;
CopyPage(nPages,nPages-1,F1BYzp.MaxRow,F1BYzp.MaxCol);
F1BYzp.Sheet:=1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
nPages:=1;
end;

end.

请教高手,怎么没人啊,
帮忙支持,顶顶也可,搞了好长时间了,就是不懂为什么.

真的没有人用过F1Book吗???

看样子又是一个解决不了的问题.

如果是第一次就出错，那就要打开imports目录下的TTF160_TLB.pas单元文件，在use后添加“OleCtnrs”引用。
如果是再一次操作时出错，就要先用F1Book61.ClearClipboard方法清空一下剪切板，再加一句Application.ProcessMessages，就更保险一点了。
试一下，有问题再说。

楼上说的对!!太感谢了,请问一下这是什么原因啊?

接受答案了.