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);