I wrote this but same problem continues.the value starts 111 gets bigger and bigger up to about 249-254

Code:
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_BITS  4
DEFINE LCD_LINES 2
DEFINE OSC 4                                                                       
DEFINE ADC_BITS     8       
DEFINE ADC_CLOCK  3     
DEFINE ADC_SAMPLEUS 100
deneme var byte
ADCON1=2
trisa.4=1
CMCON=7 
basla:
LCDOUT $FE,1 
adcin 4,deneme
LCDOUT $fe,2,#deneme," "
pause 3000
goto basla