[Interceptor]

У меня есть 8 форм типа RichEdit. Хочу создать несколько кнопок, по нажатию которой текст в сразу нескольких формах обнулялся. Ясно, что можно сделать, например, так:

RichEdit.Text:='';

Но я хочу обнулять через процедуру с параметрами: в качестве параметра - 2 перемеррые типа string:

Procedure Rev(var a:String; b:String);
begin
a:='';
b:='';
end;

procedure TForm1.Button4Click;
begin
      Rev(RichEdit1.Text, RichEdit2.Text)
end;

Компилятор выдаёт ошибку:

Constant object cannot be passed as var parameter

Понятно в чём дело, но непонятно как всё-таки можно реализовать обнуление теста в формах через процедуру.