select поля в combobox

void __fastcall TForm4::ComboBox1DropDown(TObject *Sender)
{
Form4->Klienty->Open();
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select FIO FROM KLIENT");
Query1->Open();
Form4->Klienty->Close();
Form4->Klienty->Open();
Form4->Klienty->First();
for ( int i = 0; i< Form4->Klienty->RecordCount; i++) {
ComboBox1->Items->Add("Query1FIO->Value");
Form4->Klienty->Next();
}
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ComboBox1->Items->Clear();
try{
 Query1->SQL->Clear();
 Query1->SQL->Add("SELECT DISTINCT FIO FROM KLIENT");
 Query1->Open();
 Query1->First();
  while(!Query1->Eof)
 {
  ComboBox1->Items->Add(Query1->FieldByName("FIO")->AsString);
  Query1->Next();
 }
   }catch(...){}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
if(!ComboBox1->Text.IsEmpty())
   {
    Query1->Close();
    Query1->SQL->Clear();
    Query1->SQL->Add("Select * from KLIENT WHERE FIO LIKE '"+ComboBox1->Text+"'");
    Query1->Open();
   }
    Edit1->Text = Query1->FieldByName("FIO")->AsString;
}

Edit1->Text = Query1->FieldByName("FIO")->AsString;

Edit1->Text = Query1->FieldByName("Id")->AsString;

Edit1->Text = Query1->FieldByName("Id")->AsString;

extern int d;