[ecfisa]

Hola.

El problema seguramente se te presente por el separador decimal, probá de este modo:

Código Delphi [-]
var
  p: Integer;
  Aux: string;
begin
  Aux:= Edit1.Text;
  p:= Pos(',', s);
  if p > 0 then Aux[p]:= '.';

  with _DM.consulta1 do
  begin
    Close
    SQL.Text:= 'UPDATE TC SET DOLAR_TC = :VALOR';
    ParamByName('VALOR').AsString:= Aux;
    ExecSQl;  // <== Aquí no te hubiera funcionado con el método Open...
  end;
  ...

Saludos.