1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.ADOConnection1WillConnect(Connection: TADOConnection;
  var ConnectionString, UserID, Password: WideString;
  var ConnectOptions: TConnectOption; var EventStatus: TEventStatus);
begin
  ConnectionString := 'Provider=MSDASQL.1;Password=pwd;Persist Security Info=True;User ID=Benutzer;Extended Properties="DRIVER={Oracle ODBC Driver};SERVER=CAQ1_RQM1.WORLD;UID=Benutzer;PWD=pwd;DBQ=CAQ1_RQM1.WORLD;';
  ConnectionString := ConnectionString + 'DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;"';
  UserID := 'Benutzer';
  Password := 'pwd';
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  AdoConnection1.Connected := true;
  AdoTable1.TableName := 'Tabellenname';
  AdoTable1.Open;
  ShowMessage(AdoTable1.FieldByName('Feld').AsString);
  AdoTable1.Close;
  AdoConnection1.Connected := false;
end;