rxlookupcombobox

[Frozen inside]

Есть таблица по клиентам. идентификатор -автоинкремент.
на "добавление" внешних ключей сделаны 4 rxcombobox, выбираются из них, естественно, символьные, значения.
не могу разобраться с добавлением ((((((((((((((((

//DataModule1.con1.BeginTrans;
DataModule1.tClient.Last;
DataModule1.tClient.Append;
DataModule1.tClient.FieldByName('Client_Name').AsString:=edt4.Text;
DataModule1.tClient.FieldByName('Client_Pat').AsString:=edt5.Text;
DataModule1.tClient.FieldByName('Client_Fam').AsString:=edt3.Text;
DataModule1.tClient.FieldByName('Client_Sex').AsString:=cbb7.Text;
DataModule1.tClient.FieldByName('Client_Attribute').AsString:=cbb5.Text;
DataModule1.tClient.FieldByName('Client_Year_Release_Avto').AsString:=edt6.Text;
DataModule1.tClient.FieldByName('Client_Where_Insurance').AsString:=edt38.Text;
DataModule1.tClient.FieldByName('ID_Model_AT').AsInteger:=edt42.LookupDisplayIndex;
DataModule1.tClient.FieldByName('ID_Mark_AT').AsInteger:=edt40.LookupDisplayIndex;
DataModule1.tClient.FieldByName('ID_Mark').AsInteger:=rxdblkpcmb2.LookupDisplayIndex;
DataModule1.tClient.FieldByName('ID_Model').AsInteger:=rxdblkpcmbI.LookupDisplayIndex;
DataModule1.tClient.post;
//DataModule1.con1.CommitTrans;