unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComObj;

type
  TForm1 = class(TForm)
    btn1: TButton;
    dlgOpen1: TOpenDialog;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  ExcelApp,WorkBook: Olevariant;
  ExcelRowCount,i:Integer;
  strName,strAge:string;
begin

  if dlgOpen1.Execute then
  begin

    ExcelApp := CreateOleObject('Excel.Application');
    WorkBook := ExcelApp.WorkBooks.Open(dlgOpen1.FileName);

    ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
    //ShowMessage(IntToStr(ExcelRowCount));

    for i:=1 to ExcelRowCount+1 do
    begin
      strName:= ExcelApp.Cells[i,1].Value;
      strAge:= ExcelApp.Cells[i,2].Value;

      {如果有一行为空，则退出}
      if ((strName='') and (strAge='')) then
         exit
      else
      begin
      
        ShowMessage(strName);
        ShowMessage(strAge);

      end;


    end;


  end;

  {最后关闭连接}
  WorkBook.Close;
  ExcelApp.Quit;
  ExcelApp := Unassigned;
  WorkBook := Unassigned;


end;

end.

  with query1 do         
  begin          
      close;          
      sql.clear;sql.add(insert into test(name,address) values(:name,:address));
      parambyname('name').asstring := excelx;
      parambyname('address').asstring := excely;
      execsql;         
   end;