Повтор действий или части программы

Form1->ADOQuery4->Close();
Form1->ComboBox1->Clear();
Form1->ADOQuery4->SQL->Clear();
Form1->ADOQuery4->SQL->Add("select Family ,count (Family) as [Col] from MyPhone where Family is not NULL group by Family order by 1 ");
Form1->ADOQuery4->Open();
while(!ADOQuery4->Eof)
{
 ComboBox1->Items->AddObject(ADOQuery4->FieldByName("Family")->Value,(TObject*)new int(ADOQuery4->FieldByName("Col")->Value));
 ADOQuery4->Next();
}
 
Form1->ADOQuery4->Close();
Form1->ComboBox2->Clear();
Form1->ADOQuery4->SQL->Clear();
Form1->ADOQuery4->SQL->Add("select FirstName ,count (FirstName) as [Col] from MyPhone where FirstName is not NULL group by FirstName order by 1 ");
Form1->ADOQuery4->Open();
while(!ADOQuery4->Eof)
{
 ComboBox2->Items->AddObject(ADOQuery4->FieldByName("FirstName")->Value,(TObject*)new int(ADOQuery4->FieldByName("Col")->Value));
 ADOQuery4->Next();
}
 
Form1->ADOQuery4->Close();
Form1->ComboBox3->Clear();
Form1->ADOQuery4->SQL->Clear();
Form1->ADOQuery4->SQL->Add("select LastName ,count (LastName) as [Col] from MyPhone where LastName is not NULL group by LastName order by 1 ");
Form1->ADOQuery4->Open();
while(!ADOQuery4->Eof)
{
 ComboBox3->Items->AddObject(ADOQuery4->FieldByName("LastName")->Value,(TObject*)new int(ADOQuery4->FieldByName("Col")->Value));
 ADOQuery4->Next();
}
 
Form1->ADOQuery4->Close();
Form1->ComboBox4->Clear();
Form1->ADOQuery4->SQL->Clear();
Form1->ADOQuery4->SQL->Add("select TelNumber ,count (TelNumber) as [Col] from MyPhone where TelNumber is not NULL group by TelNumber order by 1 ");
Form1->ADOQuery4->Open();
while(!ADOQuery4->Eof)
{
 ComboBox4->Items->AddObject(ADOQuery4->FieldByName("TelNumber")->Value,(TObject*)new int(ADOQuery4->FieldByName("Col")->Value));
 ADOQuery4->Next();
}