var
    Path : String;

    ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData : Variant;
    i, RowCount, ColCount : integer;
begin
    // Создание Excel
    ExcelApp := CreateOleObject('Excel.Application');
    // Отключаем реакцию Excel на события, чтобы ускорить вывод информации
    ExcelApp.Application.EnableEvents := false;
    Workbook := ExcelApp.WorkBooks.Add(Path);

    RowCount := Workbook.WorkSheets[ 1 ].UsedRange.Rows.Count;
    ColCount :=  3 ;

    DecimalSeparator := '.';

    ArrayData := VarArrayCreate([ 1 ,RowCount, 1 ,ColCount], varVariant);
    Cell1 := WorkBook.WorkSheets[ 1 ].Cells[ 1 ,  1 ];
    Cell2 := WorkBook.WorkSheets[ 1 ].Cells[RowCount, ColCount];
    Range := WorkBook.WorkSheets[ 1 ].Range[Cell1, Cell2];
    ArrayData := Range.Value;

    for i:=  1  to RowCount do begin
      IBSQL.SQL.Clear;
      IBSQL.SQL.Add('INSERT INTO ...');
      IBSQL.ExecQuery;
    end;

    IBSQL.Transaction.CommitRetaining;
    ExcelApp.Quit;