program makeGoo;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ADODB,
  Forms,
  DB, DBTables;
var
   ADOConnection : TADOConnection;

function  NewSQL : TADOQuery;
begin
   Result:= TADOQuery.Create(NIL);
   with Result do begin
      Connection:= ADOConnection;
      CommandTimeout:=  30 ;
      CursorLocation:= clUseClient;
   end;
end;

begin
   Application.Initialize;
   Application.Run;
   ADOConnection:= TADOConnection.Create(NIL);
   ADOConnection.LoginPrompt:= False;
   ADOConnection.ConnectionString:= ...;
   ADOConnection.DefaultDatabase:=  ...;
   with newSQL do try
      ....
      Open; Close;
   finally
      Free;
   end;   
   ADOConnection.Connected:= False;
   ADOConnection.Free;
end;