大家都用 sql server的数据倒入功能把，我想用delphi，怎么控制？

Question

将Excel文件中的数据倒入Delphi本地库(Paradox)不是更好吗？象这样：
label PH;
var
  msexcel : olevariant;
  wbook, wsheet : olevariant;
  i,j : integer;
  temp : string;
  ...
begin
  MsExcel := CreateOleObject('Excel.Application');
  WBook := MsExcel.Application;
  WBook.Visible := False;
  wbook.workbooks.Open('c:\xxxx.xls');//打开Excel文档
  WSheet := WBook.ActiveSheet;
  for i := 1 to WSheet.Rows.count - 1 do
    begin
      Table1.Append;            //Paradox表,其它表当然也可以了
      for j := 1 to WSheet.Columns.Count do
        begin
          temp := wsheet.cells[i, j].value;
          if Trim(temp) = '' then    //如果为空则跳出循环,当然，
                                     // 也可以是其它条件
            goto PH;
          Table1.Fields[j - 1].AsString := temp;
        end;
      PH:
      if Trim(wsheet.cells[i, 1].Value) = '' then break;//跳出循环
    end;
  ...
  WBook.SaveAs('c:\xxxx.xls');
  MsExcel.quit;
end;
注意:Tabel1的字段数要大于要倒入的Excel文档的列数