как я понял это минимальный пример был,
если надо что-то сложнее, например замазать цензурные слова, то можно написать так:
Код:
procedure Censore(ARichEdit: TRichEdit; words: TStrings);
begin
ARichEdit.Text ...;
end;
а можно так:
Код:
procedure TRichEdit.Censore(words: TStrings);
begin
Text ...;
end;
имхо второй метод должен быть правильнее, а первый привычнее...