Como llevo esto a delphi?

[paladincubano]

Casi casi hombre.
Pero siguen datos que no son iguales.
El por que no lo se.
De echo, tengo dos listbox, en uno los de la consulta y en otro los de la funcion.
Se parecen mucho, pero varian algunos, incluso, extrañisimo, hay uno con valor -51
No se, falta algo en esa funcion que me has dado, quizas un simple detallito que estas obviando.
Porque te repito, los valores se asemejan muchisimos.
Los que mas varian son los que en uno me da la semana 5 en el otro me da la semana 1.
y viceversa. y luego esta ese otro que me da -51
Saludos,.