Одновременный Update 3-х таблиц

var
    D1:real;
begin
    D1:= STRTOFLOAT(DBEDITEH2.Text);
    Datamodule3.ADOQuery8.Active:=FALSE;
    Datamodule3.ADOQuery8.SQL.Text := 'UPDATE PV_STR, PV_PER, PV_KART SET [эквивалент] = (:D1 * PV_STR.[сумма]), (:D1 * PV_PER.[сумма]), (:D1 * PV_KART.[сумма]) WHERE [код валюты] = 643';
    Datamodule3.ADOQuery8.Parameters[0].Value:=D1;
    Datamodule3.ADOQuery8.Parameters[1].Value:=D1;
    Datamodule3.ADOQuery8.Parameters[2].Value:=D1;
    Datamodule3.ADOQuery8.ExecSQL;

var
    D1:real;
begin
    D1:= STRTOFLOAT(DBEDITEH2.Text);
    Datamodule3.ADOQuery8.Active:=FALSE;
    Datamodule3.ADOQuery8.SQL.Text := 'UPDATE PV_STR SET [эквивалент] = :D1 * [сумма] WHERE [код валюты] = 643, [код валюты] = 645, [код валюты] = 647'
    Datamodule3.ADOQuery8.Parameters[0].Value:=D1;
    Datamodule3.ADOQuery8.ExecSQL;