[[maeyanes]]

Hola...

Tu error está precisamente en como pasas el valor de Tipo...

Código Delphi [-]
texto :='Insert into ' + origen + ' values(' + cod_mov+ ', ''' + tipo + ''', ' + cod_prod + ', ' + kilos + ')';

// o tambien puede ser así:
texto :='Insert into ' + origen + ' values(' + cod_mov+ ', ' + QuoteStr(tipo) + ', ' + cod_prod + ', ' + kilos + ')';

Saludos...