如何把二进制的文件内容导入word和excel（300分） 不够再加 拜托啦。(0分)

各位注意啊是（文件），谢谢 谢谢
如何把二进制的文件内容导入word和excel（300分） 不够再加 拜托啦。

var
mytext:textfile;
s:string;
i:integer;
begin
assignfile(mytext,'d:/mytext.doc');//这里可以把word换成excel,doc--->xls
if fileexists('d:/mytext.doc')then
append(mytext)
else
rewrite(mytext);
try
for i:=1 to 5do
begin
s:='this is line #';
writeln(mytext,s,i);
end;
finally
closefile(mytext);
end;
end;

end.

谢谢 lwd_2002的回答
我还想知道如何把内容导入excel 和word。
因为我用ole竟然出问题。我想知道你们是如何用的。
我是这样的，刚开始用还行，过不了多久就不行了。我重装office又可以了，我晕，不可能用几次就重装office吧。我的代码
var
i,row,column:integer;
begin
Try
ExcelApplication1.Connect;
Except
MessageDlg('Excel may not be installed',
mtError, [mbOk], 0);
Abort;
end;
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption:='Excel Application';
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
column:=1;
row:=1;
for i:=1 to 5do
begin
ExcelWorksheet1.Cells.Item[row,column]:='text';
column:=column+1;
end;
end;
end;

请问你们有更好的办法吗？不用ole也行。只要能把二进制的文件导入到word和excel里去。
同时excel 和word也被打开的波，里面就显示着我文件里的内容.谢谢

我的代码我找到问题了，可能是因为没有用释放，我把上面的那段代码放到TForm1.Button1Click(Sender: TObject);
所以运行程序时点击Button1此时成功，但再点击时excel虽然被调用，但并不能把文件内容加进去了.
如果我把程序关闭了，再运行，第一次点button1也是可以用的。第二次第N次都不行。
所以我想应该是没有释放掉，请高手指点！谢谢

不错，收了

可能是指针没有回到首记录，所以你第二次就不会那数据写进去了

我还有一种方式！

要有:adoquery.first
当你点击一次后，需要把指针返回！！这样就可以了

adoquery.first?????????
不会吧，我都没用数据库的东西，我用自己写的字符
ExcelWorksheet1.Cells.Item[row,column]:='text';

接受答案了.