procedure TForm2.fop1Error(Sender: TObject; const S: String;
  var Handled: Boolean);
begin try
_log_entry('General I/O error reports in fop1 module : '+S);
except end;End;