usesFireDAC.Phys.MySQL, FireDAC.Stan.Def, FireDAC.DApt, FireDAC.Comp.Client, FireDAC.Comp.UI, FireDAC.UI.Intf, FireDAC.VCLUI.Wait, {FDGUIxWaitCursor.Provider := 'Forms'} FireDAC.Stan.Intf,// FireDAC.ConsoleUI.Wait, {FDGUIxWaitCursor.Provider := 'Cons…