if (Pos('''', S) <> 0) then
      Tem apóstofro
   else
      Não tem apóstofro 

__________________________________________________
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/ 

Responder a