// ----------------------------------------------------------
// ADO Verbingsungsobjekt erstellen 
// und Verbindung herstellen
// ----------------------------------------------------------
ObjConnC := CreateOleObject('ADODB.Connection');
ObjConnC.Open('Provider=...');

// ----------------------------------------------------------
// ADO Queryobjekt erstellen
// und Verbindung zuweisen
// ----------------------------------------------------------
ObjRSC   := CreateOleObject('ADODB.RecordSet');
ObjRSC.ActiveConnection := ObjConnC;

// ----------------------------------------------------------
// Query definieren und Abfrage öffnen
// ----------------------------------------------------------
Query := 'SELECT * FROM [myTable] WHERE CUSTNR = "4711"';
ObjRSC.Open(Replace(Query, '"',chr(39)));

// ----------------------------------------------------------
// Treffer vorhanden?
// ----------------------------------------------------------
if ObjRSC.EOF = false then
begin
  // ----------------------------------------------------------
  // Alle Records durchlaufen
  // ----------------------------------------------------------
  while ObjRSC.EOF = false do
  begin
    WriteLog(VarToStr(ObjRSC.Fields('CUSTNAME').Value)));

    ObjRSC.MoveNext;
  end;
  
  // ----------------------------------------------------------
  // Query schliessen - nur bei mehr als 0 Treffern
  // ----------------------------------------------------------
  ObjRSC.Close;
End;

// ----------------------------------------------------------
// Verbindung schliessen
// ----------------------------------------------------------
ObjConnC.Close;
 
// ----------------------------------------------------------
// Freigeben
// ----------------------------------------------------------
ObjRSC   := UnAssigned;
ObjConnC := UnAssigned;