Index: VerpakkingsDefinitie/UI/LogInScherm.pas
===================================================================
diff -u -r546 -r547
--- VerpakkingsDefinitie/UI/LogInScherm.pas	(.../LogInScherm.pas)	(revision 546)
+++ VerpakkingsDefinitie/UI/LogInScherm.pas	(.../LogInScherm.pas)	(revision 547)
@@ -1,42 +1,41 @@
-unit LogInScherm;
+unit LoginScherm;
 
 interface
 
 uses
-  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,
+  Subscherm,
+  UserServerService, Agent;
 
 type
-  TfmLogin = class(TForm)
+  TFormLogin = class(TFormSubscherm)
     Label1: TLabel;
     Label2: TLabel;
     edtGebruikersnaam: TEdit;
     Label3: TLabel;
     edtWachtwoord: TEdit;
     Panel1: TPanel;
+
     procedure Panel1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
-var
-  fmLogin: TfmLogin;
-
 implementation
-  uses
-  UserServerService, Agent;
 
 {$R *.dfm}
 
-procedure TfmLogin.Panel1Click(Sender: TObject);
+procedure TFormLogin.Panel1Click(Sender: TObject);
 var
   Response: PxStatus;
   fAgent: TAgent;
 begin
   fAgent := TAgent.Create();
-  Response := fAgent.GebruikerAanmelden(edtGebruikersnaam.Text, edtWachtwoord.Text);
+  Response := fAgent.GebruikerAanmelden(edtGebruikersnaam.Text,edtWachtwoord.Text);
   edtGebruikersnaam.Text := Response.ToString
 end;