Changing two memos on one memo click

[Reinaldo]

Suppose I want to change text on memo2 after clicking on memo1.    Let's say I have set property OnPreivewClick of memo1 to this:

//--------------------------------------------------

procedure Memo1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
var
   s: String ;

begin

   s := TfrxMemoView( Sender ).Text  ;
   TfrxMemoView( Sender ).Text  := InputBox('BI-RADS', 'LT:', s ) ;    
   memo2.Text := TfrxMemoView( Sender ).Text ;

   Modified := True;  //this will update memo1 but not memo2
    
end;
//----------------------------------------------------

Memo2.text will be changed but not displayed.

Anyone has an idea how to update preview so that Memo2 shows new data changed on event OnPreviewClick of memo1?

Thank you, 

Reinaldo.