Fórum Problemas ao alterar registro usando Query #443667

Olá, preciso gravar os dados em uma tabela paradox que possuem campos texto,

numérico, memorando e data.
no data module criei um componente [Data source] um Componente [Query] e um

componente [UpdateSQL]

O que ocorre é:
Quando Crio um registro novo, tudo funciona todos os campos são salvos e o

registro gerado.
Quando modifico um registro ou excluo um registro existente é exibido a

seguinte mensage: [Type mismatch in expression]


No componente datasource esta setado em dataset a query clientes

No componente [Query] está com os seguinte parâmetros
Active: True
CachedUpdate: True
DatabaseName: Sistest
SQL: Select * from Clientes
UpdateObject: UpdateSQL1

No componente UpdateSQL:
Foi gerado de forma altomatica, através de Generate Sql, sendo:
Modify
update Clientes
set
Codigo = :Codigo,
Nome = :Nome,
Ordem = :Ordem,
Endereco = :Endereco,
Bairro = :Bairro,
Cidade = :Cidade,
UF = :UF,
Fone = :Fone,
Nascimento = :Nascimento,
Comissao = :Comissao,
Preferencial = :Preferencial,
Obs = :Obs
where
Codigo = :OLD_Codigo and
Nome = :OLD_Nome and
Ordem = :OLD_Ordem and
Endereco = :OLD_Endereco and
Bairro = :OLD_Bairro and
Cidade = :OLD_Cidade and
UF = :OLD_UF and
Fone = :OLD_Fone and
Nascimento = :OLD_Nascimento and
Comissao = :OLD_Comissao and
Preferencial = :OLD_Preferencial and
Obs = :OLD_Obs

Insert
insert into Clientes
(Codigo, Nome, Ordem, Endereco, Bairro, Cidade, UF, Fone, Nascimento,
Comissao, Preferencial, Obs)
values
(:Codigo, :Nome, :Ordem, :Endereco, :Bairro, :Cidade, :UF, :Fone,

:Nascimento,
:Comissao, :Preferencial, :Obs)

Delete
delete from Clientes
where
Codigo = :OLD_Codigo and
Nome = :OLD_Nome and
Ordem = :OLD_Ordem and
Endereco = :OLD_Endereco and
Bairro = :OLD_Bairro and
Cidade = :OLD_Cidade and
UF = :OLD_UF and
Fone = :OLD_Fone and
Nascimento = :OLD_Nascimento and
Comissao = :OLD_Comissao and
Preferencial = :OLD_Preferencial and
Obs = :OLD_Obs

Desde já agradeço pelo ajuda.