Atualização de dados utilizando Datasnap

Bom dia,! Estou precisando implementar um Método para editar ou atualizar dados em BD Firebird através de dispositivo móvel com Android, eu criei um web service com métodos de inserir , agora preciso de update.Este é o comando de inserção:

procedure Tdmacessodados.AtualizaProdutosDoServidor;
var
dsProdutos: TFDJSONDataSets;
Acodigo,ANome:string;id: integer; desc: string; preco: double;
;
begin
dsProdutos :=ClientModule1.ServerMethods1Client.GetProdutos();
if TFDJSONDataSetsReader.GetListCount(dsProdutos) = 1 then
begin
memInsercao.Active := false;
memInsercao.AppendData(TFDJSONDataSetsReader.GetListValue(dsProdutos, 0));
qryInsercao.SQL.Clear;
qryInsercao.SQL.Add(''insert into produto (CODIGO_PRODUTO,ID_PRODUTO,''+''NOME_PRODUTO,PRECO_PRODUTO) values (:CODIGO_PRODUTO,:ID_PRODUTO,:''+''NOME_PRODUTO,:PRECO_PRODUTO));
while not memInsercao.Eof do
begin
ACodigo := memInsercao.FieldByName(''codigo_produto'').AsString;
ANome := memInsercao.FieldByName(''nome_produto'').AsString;
preco := meminsercao.FieldByName(''preco_produto'').Asfloat;

if not ExisteProduto(Acodigo,ANome,id, desc, preco,
) then
begin
qryInsercao.ParamByName(''codigo_produto'').AsString := ACodigo;
qryInsercao.ParamByName(''nome_produto'').AsString := Anome;
qryInsercao.ParamByName(''preco_produto'').Asfloat := preco;

qryInsercao.ExecSQL;
end;
memInsercao.Next;
end;