[against]

Código Delphi [-]
procedure TTpvModulo.TCabTicketNewRecord(DataSet: TDataSet);
begin TcabTicket.fieldbyname('total').Asfloat := 0;
TcabTicket.fieldbyname('codterminal').AsInteger := CodTerminalGlobal;
//TcabTicket.fieldbyname('codcomercial').AsInteger := usuarioactivo;
tcabTicket.FieldByName('Dto').asfloat:=0;
tcabTicket.FieldByName('Dto2').asfloat:=0;
TcabTicket.fieldbyname('fecha').asstring:=datetostr(date());
//TcabTicket.fieldbyname('CodUsuario').AsInteger := usuarioactivo;
TcabTicket.fieldbyname('bruto').Asfloat := 0;
TcabTicket.fieldbyname('totalticket').Asfloat := 0;
TcabTicket.fieldbyname('pagadoeuros').Asfloat := 0;
TcabTicket.fieldbyname('devolver').Asfloat := 0;
TcabTicket.fieldbyname('stock').Asfloat := 0;
TcabTicket.fieldbyname('total').Asfloat := 0;
TcabTicket.fieldbyname('baseimponible').Asfloat := 0;
TcabTicket.fieldbyname('contado').Asfloat := 0;
TcabTicket.fieldbyname('tarjeta').Asfloat := 0;
TcabTicket.fieldbyname('cheque').Asfloat := 0;
TcabTicket.fieldbyname('transferencia').Asfloat := 0;
TcabTicket.fieldbyname('abono').Asfloat := 0;
Tcabticket.fieldbyname('pabonoeuros').Asfloat := 0;
Tcabticket.fieldbyname('entregado').Asfloat := 0;
Tcabticket.fieldbyname('iva').Asfloat := modulo.tconfig2iva.asfloat;
Tcabticket.fieldbyname('manual').Asstring := 'No';
Tcabticket.fieldbyname('pagado').Asstring := 'No';
Tcabticket.fieldbyname('impreso').Asstring := 'No';
end;

Por ejemplo, pero si fuera ese el error no me dejara compilar, y tampoco es lo de que nunca se vaya a ejecutar ese trozo de código como muchos más, he llegado a pensar porque es demasiado grande el modulo.

Código Delphi [-]
procedure TTpvModulo.DataModuleCreate(Sender: TObject);
var   Ini: TIniFile;   host,bd:string;
begin   validarpalets:=true;   //hola1
  val1:='';
  val2:='';
  val3:='';
  entrarenref := False;
  actualizamospedido:=true;  
  NoBeforeEdit := 0;
  RefInvalida := False;

  Ini := TIniFile.Create (ExtractFilePath(Application.ExeName) + 'config.ini');
  host:=Ini.ReadString('Servidor','Host',' ');
  bd:=Ini.ReadString('Servidor','BBDD',' ');
  Ini.Free;
  fmmain.borrartemp;
  try     
    conexion.Connected:=false;     
    conexion.hostname:=host;    
    conexion.Database:=bd;     
    conexion.Connected:=true;   
  except     
    showmessage('Atención, Host Incorrecto.');
    Application.Terminate;
  end;
  Abrir;
   
End;

Otro ejemplo por si pensaras que en el otro nunca entrara, es más delphi me los pone como no breakpoints o algo asi se llaman a esos breakpoints con el aspa y color verde oliva, no?

Gracias por el interés por lo menos que estáis prestando aunque no tengo esperanzas de arreglarlo :P.

PD: El modulo entero no puedo ponerlo porque es demasiado largo.