Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r1 -r10
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 1)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 10)
@@ -9,10 +9,11 @@
 type
   TfmProScanHoofdscherm = class(TForm)
     procedure FormCreate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
-    { Private declarations }
+    fInitialen: string;
+    fLoginCode: string;
   public
-    { Public declarations }
   end;
 
 var
@@ -21,17 +22,46 @@
 implementation
 
 uses
-  LoginScherm;
+  LoginScherm, GebruikerService;
 
 {$R *.dfm}
 
+procedure TfmProScanHoofdscherm.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+var
+  Service: GebruikerServiceSoap;
+  Request: GebruikerAfmeldenRequest;
+  Header: RequestHeader;
+begin
+  inherited;
+  Service := GebruikerService.GetGebruikerServiceSoap();
+
+  Request := GebruikerAfmeldenRequest.Create;
+  Header := RequestHeader.Create;
+    ShowMessage('afgemeld');
+  try
+    Request.Initialen := fInitialen;
+    Request.LoginCode := fLoginCode;
+    Header.Initialen := fInitialen;
+    Request.Header := Header;
+
+    Service.GebruikerAfmelden(Request);
+  finally
+    Request.Free;
+  end;
+end;
+
 procedure TfmProScanHoofdscherm.FormCreate(Sender: TObject);
 var
   LoginScherm: TfmLoginScherm;
-  MyAction: TAction;
 begin
   LoginScherm := TfmLoginScherm.Create(Self);
-  LoginScherm.Show();
+  If LoginScherm.ShowModal = mrNone then begin
+    fInitialen := LoginScherm.GeefInitialen;
+    fLoginCode := LoginScherm.GeefLoginCode;
+  end else begin
+    self.Close;
+  end;
 end;
 
 end.