Desbordamiento de Pila

[Durbed]

Houston Houston tenemos un problema, de repente la aplicacion sobre la que estoy trabajando me da un desbordamiento de pila, decir que el trozo de codigo donde se produce dicho desbordamiento ni es un bucle ni nada, es un simple If ... else ... y lo he puesto aqui, porque me pasa al hacer el SQL.Clear; a continuacion os pongo el fragmento de codigo donde salta el error:

Código Delphi [-]
  Begin
      PSubcategorias.Visible := True;
      LBSubCatDisp.Clear;
      //Cargo las subcategorias en la lista de disponibles
      With DMAgenda.IBQEjecutar Do
        Begin
          SQL.Clear; <--Error
          SQL.Add('Select distinct subcat from emails');
          Open;
          First;
          While not eof Do
            Begin
              LBSubCatDisp.Items.Add(FieldByName('subcat').AsString);
              Next;
            End;
          Close;
        End;
      LBSubCatDisp.Selected[0] := True;
      //Si no hay ninguna subcategoria, desactivo los botones
      If LBSubCatDisp.Count = 0 Then
        Begin
          BaddUnoSubCat.Enabled := False;
          BAddTodasSubCat.Enabled := False;
        End;
    End;

Para conectar con la base de datos utilizo los IBX que trae D7 y la version de firebird es la 1.5.2, como he dicho me ha estado funcionando hasta hoy que ha salido el error y no he introducido ninguna modificacion.

Un saludo y gracias