将excel表中数据导入到delphi中去！(100分)

各位大虾，请教如何将将excel表（数据格式不变）中数据导入到delphi中去。
（程序是用delphi＋oracle在win 2000 server中开发）。
很急，望各位大虾指教！

1） 打开Excel
ExcelApplication1.Connect;

2) 显示当前窗口：
ExcelApplication1.Visible[0]:=True; //OK
3) 更改 Excel 标题栏：
ExcelApplication1.Caption := '应用程序调用 Microsoft Excel'; //OK
4) 添加新工作簿：
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0)); //OK
5) 添加新工作表：//OK
var Temp_Worksheet: _WorkSheet;
begin
Temp_Worksheet:=ExcelWorkbook1.
WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
End;

6) 打开已存在的工作簿：//OK
ExcelApplication1.Workbooks.Open (c:/a.xls
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)

7) 设置第2个工作表为活动工作表：//OK
ExcelApplication1.WorkSheets[2].Activate; 或
ExcelApplication1.WorksSheets[ 'Sheet2' ].Activate;

8) 给单元格赋值：//?????????
ExcelApplication1.Cells[1,4].Value := '第一行第四列';
改为:ExcelApplication1.Cells.ITEM[1,4].Value := '第一行第四列';

用ADO连接EXCEL。
CONNECTIONSTRING= 'Provider=microsoft.jet.oledb.4.0;data source=excelfilepath;
extended properties=excel 8.0 persist security info =false;'
然后就象操作其它数据库一样操纵EXCEL文件。不过在取EXCEL表时前面要加$符号！

多人接受答案了。