TADODataSet *ds = new TADODataSet(this);
ds->ConnectionString = "......";
// или если на форме есть настроенный ADOConnection
//ds->Connection = ADOConnection1;
ds->SQL->Text = "SELECT name, tel_num FROM tel ORDER BY name"l
TStringList * data = new TStringList(); //массив строк :)
ds->Open();
// пробегаем циклом по всему набору данных
for(ds->First();!ds->Eof;ds->Next())
{
   data->Append(ds->FieldByName("name")->AsString+"\t"+ds->FieldByName("tel_num")->AsString);
};
//  ещё можно цикл while
//  ds->First();
//  while(!ds->Eof)
//  {
//    data->Append(ds->FieldByName("name")->AsString+"\t"+ds->FieldByName("tel_num")->AsString);
//    ds->Next();
//  };
....
....
delete ds;
delete data;