lo so che forse non ha molto senso però questo è il max dei suggerimenti che sono riuscito a trovare.. ovvero:

Dichiarare la funzione InRange;

function InRange(const AValue, AMin, AMax: Integer): Boolean;

e poi riscriverla.... cmq ora ti spiego meglio ciò che succede...

all'esecuzione del esempio in discussione io clicco sul Button1 e cosi mi controlla la funzione
ma il risultato è sempre falso quindi mi appare sempre

ShowMessage('.:NO:.');

il compilatore non mi da nessun warning, anzi il compilatore mi da dei warning se non la riscrivo la funzione... help me pls....