Executar comando SQL em lote - DELPHI

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WiniNet, Data.DBXFirebird, Data.FMTBcd, Data.DB,
  IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP,
  Vcl.Buttons, Vcl.ComCtrls, IdException, IniFiles, ShellAPI,
  Vcl.Samples.Gauges, System.Zip, System.UITypes,
  Data.SqlExpr, IdHTTP,
  IdAntiFreezeBase, Vcl.IdAntiFreeze, DBXCommon, IBX.IBScript;

type
  TForm1 = class(TForm)
    SQLConnection1: TSQLConnection;
    SQLQuery1: TSQLQuery;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }

    procedure atualiza;
    procedure grava;
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.atualiza;
var
  F: TextFile;
  buffer: string;
begin
  AssignFile(F, 'C:\\SAPO\\scripts\\atualizadofinal.sql');
  Reset(F);
  Readln(F, buffer);
  while not eof(F) do
  begin
    with SQLQuery1 do
    begin
      // buffer := StringReplace(buffer, '^', EmptyStr, [rfReplaceAll]); LINHA COMENTADA
      Active := False;
      SQLQuery1.Close;
      SQLQuery1.SQL.Clear;
      SQLQuery1.SQL.Add(buffer);
      grava;
    end;
    Readln(F, buffer);
  end;
  CloseFile(F);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  atualiza;
end;

procedure TForm1.grava;
var
  Trans: TDBXTransaction;
begin
  Trans := SQLConnection1.BeginTransaction(TDBXIsolations.ReadCommitted);
  try
    SQLQuery1.ExecSQL;
    SQLConnection1.CommitFreeAndNil(Trans);
  except
    on E: Exception do
    begin
      SQLConnection1.RollbackFreeAndNil(Trans);
      MessageDlg('Erro Ao Executar Script!' +
        E.Message, mtError, [mbOK], 0);
    end;
  end;
end;

End.