unit MainUnit;

interface

uses 
  SmartCL.System, SmartCL.Components, SmartCL.Forms, SmartCL.Application,
  SynCrossPlatformCrypto, SynCrossPlatformSpecific, SynCrossPlatformREST,
  SmartTests,
  LoginForm;

type
  TApplication = class(TW3CustomApplication)
  private
    FForm1: TLoginForm;
  protected
    procedure ApplicationStarting; override;
  public

  end;

implementation

{ TApplication}

procedure TApplication.ApplicationStarting;
begin
  FForm1 := TLoginForm.Create(Display.View);
  FForm1.Name := 'Form1';
  RegisterFormInstance(FForm1, True);
  // register other forms here

  inherited;
end;


end.
