[NumLock]

Код:

procedure ClearText(ARichEdit: TRichEdit);
begin
  ARichEdit.Text:='';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClearText(RichEdit1);  
end;

[nixel]

кстати, передача ссылки на объект - очень простое и функциональное (*и не пришедшее мне в голову пару недель назад*) решение.
NumLock, спасибо, есть повод облегчить большой кусок кода)

[Страдалецъ]

Остался простой вопрос. Нафига нужна эта обертка? Зачем вызывать лишнюю функцию?

Код:

ClearText(RichEdit1);

не проще сразу написать?:

Код:

RichEdit1.Text:=''

[Pyro]

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

Код:

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

а можно так:

Код:

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

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