here is the copy of a simple project created just to test and the failure appears ... let's see ... the code ...
attached is a print of the project and the result that the error happens ...
help help help
unit Mainm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
uniGUIClasses, uniGUImClasses, uniGUIRegClasses, uniGUIForm, uniGUImForm,
uniGUImJSForm,
FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf,
FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async,
FireDAC.Phys, FireDAC.Phys.MySQL, FireDAC.Phys.MySQLDef, FireDAC.VCLUI.Wait,
FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, Data.DB,
FireDAC.Comp.DataSet, FireDAC.Comp.Client, uniGUIBaseClasses, uniBasicGrid,
uniDBGrid, unimDBListGrid, unimDBGrid, uniButton, unimButton,
Datasnap.DBClient;
type
TMainmForm = class(TUnimForm)
UnimDBGrid1: TUnimDBGrid;
FDConnection1: TFDConnection;
DataSource1: TDataSource;
FDPhysMySQLDriverLink1: TFDPhysMySQLDriverLink;
qCliente: TFDQuery;
UnimButton1: TUnimButton;
procedure UnimButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function MainmForm: TMainmForm;
implementation
{$R *.dfm}
uses
uniGUIVars, MainModule, uniGUIApplication;
function MainmForm: TMainmForm;
begin
Result := TMainmForm(UniMainModule.GetFormInstance(TMainmForm));
end;
procedure TMainmForm.UnimButton1Click(Sender: TObject);
begin
qCliente.Open;
end;
initialization
RegisterAppFormClass(TMainmForm);
end.