Как получить отредактированое значение в Мемо

Basken

Доброго времени суток.

v. FR 3.20

Подскажите, каким образоим после печати я могу получить данные которые пользователь ввел в мемо через режим редактирования?

Если пытаюсь вытащить данные в TfrxReport.OnAfterPrintReport в мемо находятся не измененные данные...

procedure TfrmMain.frxReportAfterPrintReport(Sender: TObject);
var
  Memo: TfrxMemoView;
begin
  Memo := (frxReport.FindObject('Memo11') as TfrxMemoView);
  if Assigned(Memo) then begin
    Memo.GetData;// З.Ы. если не вызывать то в Memo.Value нет данных
    qrInsertPrintedTaxBurden.Parameters.ParamByName('dcNO').Value := Memo.Value;
  end;
end;

Lex

вот немного подредактированный обработчик из Demo(интерактивный отчет)

procedure Memo2OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
var
  s, s1: String;
begin
  s := TfrxMemoView(Sender).Text;
  SetLength(s, Length(s) - 2); // cut off #13#10
  s1 := InputBox('Edit', 'Edit Memo2 text:', s);                  
  if s <> s1 then
  begin              
    TfrxMemoView(Sender).Text := s1;       
    Modified := True;
    SaveChange(s1);                                                    
  end;              
end;

где SaveChange(s1);
внешная (пользовательская) функция котрорая сохраняет изменения в базу данных