Поиск нужного знака в строковом поле Edit

[vmilyoshin]

Привет форумчане!
Как программно узнать существует ли запятая в строке в поле Edit или нет.
Если не существует, то выполняется определённое действие и наоборот.

[Serge_Bliznykov]

if Pos(',', Edit1.Text)>0 
  then ShowMessage('Есть запятая в поле Edit')
  else ShowMessage('Нет запятой');