Загрузка данных из Excel в БД MS SQL server

unit Unit5;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB,
  Data.Win.ADODB, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls, Vcl.StdCtrls, ComObj;
 
type
  TForm5 = class(TForm)
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    Timer1: TTimer;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Button1: TButton;
    ADOConnection2: TADOConnection;
    ADOQuery2: TADOQuery;
    OpenDialog1: TOpenDialog;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form5: TForm5;
 
implementation
 
{$R *.dfm}
 
procedure TForm5.Button1Click(Sender: TObject);
begin
 
end;
 
procedure TForm5.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
 
  ADOConnection1.Connected := False;
  ADOConnection1.ConnectionString := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;password=opa579zx;Initial Catalog=123;Data Source=tcp:localhost,11357;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=DESKTOP-CSU6SAP;Initial File Name=""; ';
  ADOConnection1.ConnectionString := ADOConnection1.ConnectionString + 'Use Encryption for Data=False;Tag with column collation when possible=False;MARS Connection=False;DataTypeCompatibility=0;Trust Server Certificate=False;Application Intent=READWRITE;';
  ADOConnection1.Connected := True;
 
  ADOConnection2.Connected := False;
  ADOConnection2.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Work5\Desktop\Droch\Exel\OTPB_Ecology_20220802.xlsx;Mode=Share Deny None; extended properties="excel 12.0 macro;HDR:YES"; ';
  ADOConnection2.Connected := True;
 
  ADOQuery2.Active := False;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('SELECT * FROM  [OTPB_Ecology_20220802.xlsx$]');
  ADOQuery2.Active := True;
 
  ADOQuery1.Active := False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM [123].[dbo].[Exel] ');
  ADOQuery1.Active := True;
end;
 
end.

   ADOQuery1.DisableControls;    
try
    while not ADOQuery1.EoF do
       begin
            
           { Здесь берем данные из текущей записи в ADOQuery1 
            и помещаем их туда куда надо }
 
           ADOQuery1.Next;  // переходим на след. запись
       end;
finally
   ADOQuery1.EnableControls;
end;

format('%s, %s, %s;', [stringgrid.cells[0, 0], stringgrid.cells[0, 1], stringgrid.cells[0, 2]]);