Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r5 -r6
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 5)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 6)
@@ -31,7 +31,7 @@
 implementation
 
 uses
-  GebruikerService;
+  GebruikerService, PopupScherm;
 
 {$R *.dfm}
 
@@ -46,6 +46,7 @@
   Service: GebruikerServiceSoap;
   Request: GebruikerAanmeldenRequest;
   Response: GebruikerAanmeldenResponse;
+  PopupScherm: TfmPopupScherm;
 begin
   Service := GebruikerService.GetGebruikerServiceSoap();
   // request opbouwen
@@ -57,7 +58,10 @@
     Response := Service.GebruikerAanmelden(Request);
     try
       if Response.Header.Status <> '200' then begin
-        ShowMessage(Response.Header.Omschrijving);
+        PopupScherm := TfmPopupScherm.Create(self);
+        PopupScherm.lblWaarschuwing.Caption := Response.Header.Omschrijving;
+        PopupScherm.btnPopupActie.Caption := 'Probeer opnieuw';
+        PopupScherm.ShowModal;
       end else begin
         lblGebruiker.Caption := edtInitialen.Text;
         lblGebruiker.Visible := true;