var
codigo:string;
precionuevo:string;
conver:real;
begin
codigo:= ADOQuery1.FieldValues['Codigo'];
precionuevo:= Edit1.Text;
conver:= StrToFloat(precionuevo);
with DataModule5.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE HERRAMIENTAS SET PRECIO= :PPRECIO ');
SQL.Add('WHERE CODIGO = :PCODIGO');
Parameters.ParamByName('PPRECIO').Value:= conver;
Parameters.ParamByName('PCODIGO').Value:= codigo;
ExecSQL
end
end;