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:

const
   ConnPrefixMSSQL = 'assembly=Borland.Data.Mssql, Version=1.5.1.0, Culture=neutral, ' +
                   'PublicKeyToken=91d62ebb5b0d1b1b;vendorclient=sqloledb.dll;' +
                   'Provider=MSSQL;';
   ConnDetailsMSSQL = 'database=%s;username=%s;password=%s;hostname=%s';
var
   ConnectionString: string;
   Connection: BDPConnection;
   Command: BDPCommand;
   Reader: BDPDataReader;
   Value1: string;
begin
   ConnectionString := ConnPrefixMSSQL +
        Format(ConnDetailsMSSQL, [DBName, DBUser, DBPassword, Servername]);
   Connection := BDPConnection.Create(ConnectionString);
   Connection.Open;
   Command := Connection.CreateCommand;
   Command.CommandText := 'Select Field1 from Table1';
   Reader := Command.ExecuteReader;
   while reader.Read do
   begin
      Value1 := Reader.GetString(0);
      ...
   end;
   Reader.Free;
   Command.Close;
   Connection.Close;
end;