Ayuda con conexion ADO en aplicacion de consola

[delphi.com.ar]

Te transcribo un fragmento de código de una de mis aplicaciones en modo consola, que crea una conexión ADO:

Código Delphi [-]
  with TADOConnection.Create(nil) do
    try
      with AScript.ADOConfig do

        ConnectionString := 'Provider=' +  Str64(Driver) + ';' +
                            'Data Source=' + Str64(Server) + ';' +
                            'Initial Catalog=' + Str64(DefaultDatabase) + ';' +
                            'Persist Security Info=True;' +
                            'User ID=' + Str64(UserId) + ';' +
                            'Password=' + Str64(Password);
      Open;

      BeginTrans;
      try
        Execute(AScript.Text, iRecAffected);
        CommitTrans
      except
        RollbackTrans;
        raise;
      end;

      Close;
    finally
      Free;
    end;

Previo a este código, es necesario ejecutar ColInitialize:

Código Delphi [-]
uses 
  ActiveX;

begin
  CoInitialize(nil);
  try
      {Crea la conexión ADO}...
  finally
    CoUninitialize;
  end;
...

Saludos!