Form1->ADOQuery1->SQL->Add("select a from b where c);
    try
    {
           Form1->ADOQuery1->Open();
        Form1->ADOQuery1->First();
    }
    catch(...){return;}
x = Form1->ADOQuery1->Fields->Fields[0]->AsString;
Edit1->Text=x;