Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r3 -r4
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 3)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 4)
@@ -18,6 +18,7 @@
     procedure FormCreate(Sender: TObject);
     procedure edtInitialenKeyPress(Sender: TObject; var Key: Char);
     procedure btnLinksOnderClick(Sender: TObject);
+    procedure btnRechtsOnderClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -29,6 +30,9 @@
 
 implementation
 
+uses
+  GebruikerService;
+
 {$R *.dfm}
 
 procedure TfmLoginScherm.btnLinksOnderClick(Sender: TObject);
@@ -37,6 +41,34 @@
   Application.Terminate;
 end;
 
+procedure TfmLoginScherm.btnRechtsOnderClick(Sender: TObject);
+var
+  Service: GebruikerServiceSoap;
+  Request: GebruikerAanmeldenRequest;
+  Response: GebruikerAanmeldenResponse;
+begin
+  Service := GebruikerService.GetGebruikerServiceSoap();
+  // request opbouwen
+  Request := GebruikerAanmeldenRequest.Create;
+  try
+    Request.Initialen := edtInitialen.Text;
+    Request.LoginCode := edtPincode.Text;
+
+    Response := Service.GebruikerAanmelden(Request);
+    try
+      if Response.Header.Status <> '200' then begin
+        ShowMessage(Response.Header.Omschrijving);
+      end else begin
+        lblGebruiker.Caption := edtInitialen.Text;
+      end;
+    finally
+      Response.Free;
+    end;
+  finally
+    Request.Free;
+  end;
+end;
+
 procedure TfmLoginScherm.edtInitialenKeyPress(Sender: TObject; var Key: Char);
 begin
   inherited;