[NumLock]

Код:

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Database1: TDatabase;
    Query1: TQuery;
...
  Database1.DriverName:='ORACLE';
  Database1.Params.Add('SERVER NAME=orasrv');
  Database1.Params.Add('USER NAME=scott');
  Database1.Params.Add('PASSWORD=tiger');
  Database1.LoginPrompt:=False;
  Database1.DatabaseName:='my';
  Query1.DatabaseName:='my';
  Query1.SQL.Text:='select * from user_tables';
  Query1.Open;