procedure TForm2.plugin1BeforeLoad(Sender: TObject; FileName: String;
  var AllowLoad: Boolean);
begin try
_log_entry('Loading plugin module '+filename+', and find starting procedures...');
except end;End;