1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

program sqltest;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  AdoDB,
  Classes,
  FileCtrl,
  Dialogs,
  Windows;


procedure main;
var
  q: TAdoQuery;
begin
  try
     q := TAdoQuery.Create(nil);
     q.ConnectionString := '........';
     q.SQL.Clear;
     q.SQL.Add('Select * from firmen_spezifisch');
     q.Prepared := true;
     q.Open;
     q.First;
     q.Close;
    q.Free;
  except
   on E:Exception do showmessage(E.Message);  
  end;

end;

begin
   main;
end.					

1:
2:
3:
4:

begin
CoInitialize(nil);
main;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

uses ...,ActiveX;

begin
CoInitialize(nil);

main;

CoUninitialize; // hatte ich beim ersten mal vergessen
end;