Раскрасить Memo из процедуры

kat-ve

Добрый день! На Page1 есть Memo1 и Memo2. Нужно по клику на Memo1 раскрасить Memo2. Пытаюсь выполнить код:

procedure Memo1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
var Memo: TfrxMemoView;  
begin
       Memo := TfrxMemoView(frxReport1.FindObject('Memo2'));
       Memo.Color:=clRed;                                                             
end;

Скрипт отрабатывает, цвет не меняется.
Что сделать, чтобы цвет все-таки менялся?

gpi

Пример в аттаче