Установить значение полю связи

[Xaenar]

Здравствуйте!
Имеется база по продаже квартир. Таблицы Квартира, Агенство (продает кваритры), Покупатель. Проблема в том, чтобы установить продавца (и покупателя) квартире (по полю связи).

Вот как я пытаюсь это реализовать:

Чтобы установить квартире продавца вывожу через Query их список.
Затем выбираю продавца (ячейку) в DBGrid`е:

procedure TResultAgencyForm.DBGrid1CellClick(Column: TColumn);
begin
	sSelectedCell := ResultAgencyForm.DBGrid1.SelectedField.AsString;
end;

Нажимаю ОК.

procedure TResultAgencyForm.Button1Click(Sender: TObject);
begin
	sFindCell:=DataModule1.AgencyTable.Lookup('ФИО_сотруд',sSelectedCell,'id_агента');	
	DataModule1.ADOQuery1.Active:=false;
      	DataModule1.ADOQuery1.Parameters.ParamByName('agent_id').Value:= sFindCell;
      	DataModule1.ADOQuery1.Active:=true;
end;

SQL запрос:

UPDATE Квартира
SET id_агента = :agent_id

в итоге вылезает ошибка:

Подскажите, пожалуйста, в чем ошибка и её как исправить.

[GoodDA]

код несмотрел,
но думаю у вас в таблице несколько сотрудников с одинаковыми именами

по идее ругается что лукап выдает несколько записей вместо одной
sFindCell:=DataModule1.AgencyTable. Lookup('ФИО_сотруд',sSelectedCell,' id_агента');