Stulbs jautājums, kā noteikt, kad tiek ievadīts teksbox noteikts vārds?

Runa iet par Delphi.

Ok, tātad es cenšos panākt, kad Tekstbox1'ā tiek ierakstīts vārds piem Fak un u.t.t parādas message 'nesi rupsh!'

Mans pagaidu variants,ko pats mēģināju izdomāt ir šāds:

var
s:string;
Begin
S := 'Slikts vaards'
If Textbox1.Text = Textbox1.Text + s then
ShowMessage('Neesi rupsh');

Tas nestrādā, kā arī, cik saprotu, ja tas strādātu tad meesigs parādītos tikai tad ja 'sliktais vaards' būtu ierakstīts tikai teksta beigās, bet man vaig lai parādas messigs uzreiz kā Tekstboksā ir ierakstīts šis 'Sliktais vārds.'

Palīdziet lūdzu!