error con encodedate en delphi 7

[richy08]

buenas tardes compañeros estoy utilizando esta funcion para formar fechas que extraigo de mi bd, todo funciona bien hasta que en ocasiones llega el mes numero 11 y al parecer la comparacion truena.

el valor de las variables son:

a m d tipo word
2012 1 1


ano mes d tipo ano, mes vienen de la base de datos son varchar; d word
2011 09 1
2011 10 1
2011 11 1

Código Delphi [-]
   i3:=0;
   seleccion3:=0;
   seleccion3:=Qry_cuotas.RecordCount;  
   Qry_cuotas.First;
   while i3 < seleccion3 do
   begin
      if encodedate(StrToInt(Qry_cuotas.fieldbyname('ano').Value), StrToInt(Qry_cuotas.fieldbyname('mes').Value), dia)<=encodedate(a, m, dia) then  <---
      begin

este es el error que me marca

---------------------------
Proposunidpr
---------------------------
Access violation at address 40002540 in module 'rtl70.bpl'. Write of address 000000E3.
---------------------------
Aceptar
---------------------------

alguna idea de que esl o que pueda estar pasando??, gracias pr cualquier comentario