Fórum Duvida em usar um comando update no delphi #379338

Aê galera estou com um erro no meu programa, quejá esta me tirando do sério estou tentanto fazer um update junto com um select mas não esta dando certo... o erro que dá é que ele não acha a parte do select... vou mandar o comando qu eu faço desde o inicio....       DM.SQLProdTemp.Close;
  DM.SQLProdTemp.CommandText := 'delete from prodtemp';
  DM.SQLProdTemp.Execsql;     DM.SQLProdTemp.CommandText := 'insert into prodtemp (id_produto, des_produto, prc_vnd) select id_produto, des_produto, prc_vnd from produtos';
  DM.SQLProdTemp.ExecSql;     DM.SQLProdTemp.CommandText := 'update prodtemp set id_vendedor = ' + FloatToStr(i);
  DM.SQLProdTemp.ExecSql;     DM.SQLProdTemp.CommandText := 'update PT set prc_vnd_vendedor = Vp.prc_vnd select PT.id_produto, PT.id_vendedor, PT.prc_vnd_vendedor, Vp.prc_vnd from prodtemp PT, vendedor_produtos Vp where (PT.id_vendedor = Vp.id_vendedor and PT.id_produto = Vp.id_produto';
  DM.SQLProdTemp.ExecSql;     DM.SQLProdTemp.CommandText := 'select * from prodtemp';
  DM.SQLProdTemp.ExecSql;
  DM.SQLProdTemp.Open;     DM.CdsProdTemp.close;
  DM.CdsProdTemp.Open;   O meu erro é na parte do comando update, se alguém puder me ajudar... ficarei muito grato !