atualizar todos valores da tabela

[pangare]

Salve a todos...

preciso atualizar os valores já cadastrados em uma tabela em percentual então fiz da seguinte forma

var

Valor: Integer;

begin

Valor:= dm.produtos.Fields[25].Value;

with dm.produtos do begin

Close;

SQL.Clear;

SQL.Add('UPDATE produtos');

SQL.Add('SET produtostabela1 = :pValor');

Parameters[25].Value:= dm.produtostabela1.value - (dm.produtostabela1.Value * edit1.Text ) / 100; //edit1.text =valor em porcentagem

ExecSQL;

end;

O problema é que o código da um erro

incompatible types 'String' and 'Currency'

sera que o erro esta relacionado com o Parameters [25] ???

como posso fazer caso o código rode para alterar toda tabela?

desde já,grato pela atenção.

end;

[Jhonas]

voce não pode efetuar um calculo de multiplicação por uma string ... tem que fazer a conversão

Parameters[25].Value:= dm.produtostabela1.value - (dm.produtostabela1.Value * strtoint(edit1.Text) ) / 100;

abraço