ComboBox1->Clear();
	ADOQuery1->SQL->Clear();
	ADOQuery1->SQL->Add("select productionprocess from contract \
						 group by productionprocess \
						 order by productionprocess desc;");
	ADOQuery1->Open();
	while (!ADOQuery1->Eof)
	{
		ComboBox1->Items->Add(ADOQuery1->FieldByName("productionprocess")->AsString);
		ADOQuery1->Next();
	}

	ADOQuery1->SQL->Clear();
	ADOQuery1->SQL->Add("select idOrder 'Order id', `date` 'Date', \
	DepositPayed 'Payed deposit', ContractTotalPrice 'Total price',\
	ContracTotalPrice_inclVAT 'Total price+18%',\
	productionprocess 'Production process' from contract;");
	ADOQuery1->Open();