procedure TForm2.abfApplicationProperties1Activate(Sender: TObject);
begin try
repaint;
enum_research_projects;
abfApplicationProperties1Restore(Sender);
except end;End;