At this line
AdvToolBar1.Menu := fp.MainMenu1;
in TForm1.Personal1Click
, the variable fp
has not been initialised.
Furthermore, at this line
AdvToolBar1.Menu := ff.MainMenu1;
in TForm1.Inspectare1Click
, the variable ff
has not been initialised.
You must initialise variables before you attempt to use them.