[Ildar-tsr]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  q: TADOQuery; //кверик
begin
  q:= TADOQuery.Create(nil); //создаем компонент
  q.Connection:= ADOConnection1; //задаем коннект
  q.SQL.Text:= 'select field1, field2 from table' //свои поля, своя таблица
  q.Open; //получаем набор данных
end;