Частичное совпадение текста в условии

[Merano]

С новым годом всех!

Написал простенький чат, захотелось добавить антимат. Можно ли как-то проверить на частичное совпадение в условии if then?
Есть функция, в которой проверяется текст "топорно", то есть:

...
 if text = 'мат' then
  r := 'заменитель';
 Result := r;

[Lardes]

http://www.delphibasics.ru/StringReplace.php

[Merano]

Lardes, спасибо

[Lardes]

Merano, с Новым Годом! =)