procedure TForm2.MyFavorites1Click(Sender: TObject);
var t3:Integer;
begin try
form12:=TForm12.Create(nil);
form12.ShowModal;
freeandnil(form12);
for t3:=3 to 10 do fav_con1.Items.Items[t3].Clear;
run_fav_loader1.Execute;
abfApplicationProperties1Restore(Sender);
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'CA56400');
end;End;