object Form1: TForm1
 Left = 0
 Top = 0
 Caption = 'Form1'
 ClientHeight = 293
 ClientWidth = 426
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'Tahoma'
 Font.Style = []
 OldCreateOrder = False
 PixelsPerInch = 96
 TextHeight = 13
 object Button1: TButton
   Left = 332
   Top = 252
   Width = 75
   Height = 25
   Caption = 'Button1'
   TabOrder = 0
   OnClick = Button1Click
 end
 object db: TADOConnection
   ConnectionString =
     'Provider=OraOLEDB.Oracle.1;Password=bar;Persist Security I' +
     'nfo=True;User ID=foo;Data Source=sles10'
   Provider = 'OraOLEDB.Oracle.1'
   Left = 32
   Top = 24
 end
 object ds: TADODataSet
   Connection = db
   CommandText = 'SELECT COUNT(*) FROM arg_city WHERE country_code = '#39'RU'#39
   Parameters = <>
   Left = 128
   Top = 24
 end
end

procedure TForm1.Button1Click(Sender: TObject);
begin
 db.Connected := true;
 ds.Open;
 try
   ShowMessageFmt('count = %s', [ds.Fields[0].AsString]);
 finally
   ds.Close;
 end;
end;