[Pyro]

как я понял это минимальный пример был,
если надо что-то сложнее, например замазать цензурные слова, то можно написать так:

Код:

procedure Censore(ARichEdit: TRichEdit; words: TStrings);
begin
  ARichEdit.Text ...;
end;

а можно так:

Код:

procedure TRichEdit.Censore(words: TStrings);
begin
  Text ...;
end;

имхо второй метод должен быть правильнее, а первый привычнее...