Cette fonction permet de scanner une chaine pour voir si un 
caractere s'y trouve.


    if StrScan('Chaine à scanner','a') <> nil then
     messageboxa(handle,'la lettre existe','oui',0)
    else  messageboxa(handle,'la lettre est absente de la chaine','non',0); 
  end;


// si le caractere existe le resultat sera different de nil


il ya un exemple dans le zip