Index: AAPClient/Win32/Debug/LoginScherm.dcu
===================================================================
diff -u -r7 -r8
Binary files differ
Index: AAPClient/Win32/Debug/ProScan.exe
===================================================================
diff -u -r7 -r8
Binary files differ
Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r7 -r8
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 7)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 8)
@@ -41,8 +41,26 @@
 {$R *.dfm}
 
 procedure TfmLoginScherm.btnLinksOnderClick(Sender: TObject);
+var
+  Service: GebruikerServiceSoap;
+  Request: GebruikerAfmeldenRequest;
+  Response: GebruikerAfmeldenResponse;
 begin
   inherited;
+  Service := GebruikerService.GetGebruikerServiceSoap();
+
+  Request := GebruikerAfmeldenRequest.Create;
+  try
+    Request.Initialen := edtInitialen.Text;
+    Request.LoginCode := edtPincode.Text;
+    Request.Header.Initialen := edtInitialen.Text;
+
+    Response := Service.GebruikerAfmelden(Request);
+    ShowMessage(Response.Header.Omschrijving);
+  finally
+    Request.Free;
+  end;
+
   Application.Terminate;
 end;