Изменить текст в одной Memo и чтобы при этом изменился текст в другой

Аленка

procedure Memo36OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
var
s: string;
begin
s:= TfrxMemoView(Sender).Text;
SetLength(s, Length(s) - 2);
TfrxMemoView(Sender).Text := InputBox('Редактирование строки', ' ' ,s);
proc:= StrToFloat(s)/100; //проц - глобальная переменная.. содержит проценты в виде сотых, высчитанных из переменной S
Memo39.Text:=FloatToStr(<HEAD.VSUM_N>*proc);
Modified :=True;
end;

мне нужно чтобы в memo39 менялся текст в зависимости от текста в memo36... как сделать, если так прямо не работает. заранее спасибо