A Solução que encontrei foi converter a variável `codigo` para `integer` que era o formato que estava no banco:

a solução foi apenas isso: `procedure TdmCadMIB.Consulta_Cliente(Codigo: string);` alterei para `procedure TdmCadMIB.Consulta_Cliente(Codigo: Integer);`