[judoboy]

Esto es lo que hago

procedure TFrmPrincipalValidarPedidos1.BtnValidarClick(Sender: TObject);
var Validado,SentenciaSql:string;
begin
   Validado:='SI';
   SentenciaSql:='UPDATE PEDIDOS SET VALIDADO="'+Validado+'" WHERE CODIGO_PEDIDO="'+DBGResultados.Fields[0].Value+'"';
   QValidar.Close;
   QValidar.Sql.Clear;
   QValidar.Sql.Add(SentenciaSql);
   QValidar.ExecSQL;

   ShowMessage('Pedido '+''+DBGResultados.Fields[0].Value+''+' Validado');

        


end;