1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TForm1.Button1Click(Sender: TObject);
  var alttext,neutext,zeichen,muster,raus,rein:ShortString;
      i,lepos,rauslen,pos                     : Byte;
  begin
  alttext:=Edit1.Text;
  neutext:='';
  lepos:=Length(alttext);
  pos:=1;
  raus:='f***';
  rauslen:=Length(raus);
  rein:='f**k';
  for i:=0 to lepos do
    begin
    muster:=Copy(alttext,pos,rauslen);
    zeichen:=Copy(alttext,pos,1);
    if muster=raus then
      begin
      neutext:=neutext+rein;
      pos:=pos+rauslen
      end
                    else
      begin
      neutext:=neutext+zeichen;
      pos:=pos+1
      end
    end;
  Label1.Caption:=neutext;
  end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);     
  begin
  if Key=Chr(13) then Button1.Click            //Kleines Extra: Bei Enter Submit :)
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var BadWords, NewWords: array[1..10] of string;
// Füllen.. geht auch als Konstante
procedure badWord;
var i: Integer;
    s, s2: string;
begin
  s:=lowercase(Edit1.Text);
  for i:= 1 to 3 do
    if pos(BadWords[i], s)>0 then
    begin
      s2:=s;
      s:=copy(s2, 1, pos(BadWords[i], s2)-1);
      s:=s+NewWords[i];
      s:=s+copy(s2, pos(BadWords[i], s2)+length(BadWords[i]), length(s2));
    end;
  Edit1.Text:=s;
end;