как подставить в запрос данные из другой таблицы на update

[SovereignSun]

есть две таблицы (money, agreements) в одной id_dogovor и id_org и в другой id_agr (id_dogovor связка) и id_org.
Есть ручной запрос Update money set id_dogovor=275 where id_org=127
Тоесть я смотрю в ручную значение id_org из money в поле id_org из agreements и подставляю данные из поля id_agr в agreements в поле id_dogovor в money, но записей немеренно много.
Как можно как-то автомитизировать процесс?
У меня логическая догадка для делфи но как сделать на SQL.

var i:integer;
data,data2:string;
begin
For i:=0 to qry1.RecordCound -1 do
data:=qry1.fieldbyname('id_org').AsString;
qry2.SQL.Text:=Select from agreements where id_org='+data;
qry2.Open;
data2:=qry2.fieldbyname('id_agr').AsString;
qry2.SQL.Text:='Update money set id_dogovor='+data2+' where id_org='+data;
qry2.Open;
EhDbgrid1.Next;
end;

[Аватар]

Если связка один к одному, то можно так

Update money
  set id_dogovor=(SELECT id_agr FROM agreements WHERE agreements.id_org=money.id_org)

[SovereignSun]

Спасибо, все получилось.