1:
2:
3:
4:
5:
6:
7:

if AccountSystemClient1.Login(edtUsername.Text, edtPassword.Text) then
  begin
    ModalResult := mrOK;
    Close;
      end
  else
    ShowMessage('Falsche Benutzerdaten!');                    

1:
2:
3:
4:
5:
6:
7:
8:

Application.CreateForm(TForm5, Form5);
  IF Form5.Showmodal:=mrOK Then Begin
Form2.Free;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.Run;                    

1:
2:
3:
4:
5:
6:
7:
8:

Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm5, Form5);
  IF Form5.Showmodal:=mrOK Then Begin
Form1.Free;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.Run;                    

1:
2:

  IF Form5.Showmodal:=mrOK Then Begin
Form1.Free;                    

1:

IF Form5.Showmodal=mrOK Then Begin                    

1:
2:
3:

if AccountSystemClient1.Login(edtUsername.Text, edtPassword.Text) then
  begin
    ModalResult := mrOK;                    

1:
2:
3:
4:
5:

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ExtCtrls, jpeg, mmsystem, ComCtrls,
  sSkinManager, sButton, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, IdAuthentication, Menus, URLMon, shellapi, JvGIF,
  JvComponentBase, JvTrayIcon, AccountSystem, Registry, sCheckBox;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:

unit Unit5;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ExtCtrls, jpeg, mmsystem, ComCtrls,
  sSkinManager, sButton, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, IdAuthentication, Menus, URLMon, shellapi, JvGIF,
  JvComponentBase, JvTrayIcon, AccountSystem, Registry, sCheckBox;

  
type
  TForm5 = class(TForm)
    AccountSystemClient1: TAccountSystemClient;
    edtUsername: TEdit;
    edtPassword: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    CheckBox1: TsCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure AccountSystemClient1LoggedIn(
      AUserLevel: TAccountSystemUserLevel; AExpired: Boolean);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SaveLoginData;
    procedure LoadLoginData;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
if AccountSystemClient1.Login(edtUsername.Text, edtPassword.Text) then
  begin
    ModalResult := mrOK;
   close;
      end
  else
    ShowMessage('Falsche Benutzerdaten!');
end;


procedure TForm5.AccountSystemClient1LoggedIn(
  AUserLevel: TAccountSystemUserLevel; AExpired: Boolean);
begin
Form1.Caption := 'Farmerama Wecker Version 1.5 Herzlich Willkommen ' + Form5.AccountSystemClient1.UserName;
if AExpired then
  begin
    ShowMessage('Dein Benutzerkonto ist abgelaufen!');
    Application.Terminate;
  end
  else if AUserLevel = aulDisabled then
  begin
    ShowMessage('Dein Benutzerkonto wurde deaktiviert!');
    Application.Terminate;
  end;



end;

procedure TForm5.SaveLoginData;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('Software\' + Application.Title + ' ' + ExtractFileName(Application.ExeName), True) then
    begin
      Reg.WriteString('UserName', edtUsername.Text);
      Reg.WriteString('Password', edtPassword.Text);
      Reg.WriteBool('AutoLogin', Checkbox1.Checked);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
  SaveLoginData;
  
    end;




procedure TForm5.LoadLoginData;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('Software\' + Application.Title + ' ' + ExtractFileName(Application.ExeName), False) then
    begin
      edtUsername.Text := Reg.ReadString('UserName');
      edtPassword.Text := Reg.ReadString('Password');
      Checkbox1.Checked := Reg.ReadBool('AutoLogin');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
   end;
procedure TForm5.Button2Click(Sender: TObject);
begin
Application.terminate;
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
LoadLoginData;
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'Farmerama Wecker';
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm5, Form5);
  IF Form5.Showmodal=ID_OK Then Begin
Form5.Free;
  Application.CreateForm(TForm1, Form1);
   Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.Run;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

var 
  NewUserForm: TfrmNewUser;
begin
  NewUserForm := TfrmNewUser.Create(Self);
  try
    NewUserForm.ShowModal;
  finally
    NewUserForm.Free;
  end;                    

1:

data.AddFormField('email', frmNewUser.edtMail.Text);                    

1:

data.AddFormField('email', frmNewUser.edtMail.Text);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

var 
  NewUserForm: TfrmNewUser;
begin
  NewUserForm := TfrmNewUser.Create(Self);
  try
    NewUserForm.ShowModal;
  finally
    NewUserForm.Free;
  end;                    

1:

data.AddFormField('email', frmNewUser.edtMail.Text);