Из комбобокс в поле таблицы

Здравствуйте. Чет не получается. В общем пробую передать выбранное значение из комбобокса в поле едит. Пересмотрел все темы по этому вопросу, нашел наиболее близкий ответ, там где при выборе из комбо бокса заполняются едиты с банковскими данными.

procedure frmEmployee_OnShow (Sender: string; Action: string);
begin
   frmEmployee_ComboBox1_OnChange ('');
end;

procedure frmEmployee_ComboBox1_OnChange (Sender: string);
begin
     frmEmployee.Edit1.Text := SQLExecute ('SELECT bic FROM bank WHERE id = ' + IntToStr(frmEmployee.ComboBox1.dbItemID) );
     frmEmployee.Edit2.Text := SQLExecute ('SELECT Account FROM bank WHERE id = ' + IntToStr(frmEmployee.ComboBox1.dbItemID) );
end;
Заменил на свои данные оставил только одну строку а прога ругается и ставит курсор в конце перед ендом.
По сути мне нужно то же самое только значение комбобокса передать в один едит. Замучался с экспериментами. Хелп ми.