Index: AAPClient/UI/LoginScherm.pas
===================================================================
diff -u -r32 -r33
--- AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 32)
+++ AAPClient/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 33)
@@ -35,7 +35,7 @@
 implementation
 
 uses
-  GebruikerService, PopupScherm;
+  GebruikerService;
 
 {$R *.dfm}
 
@@ -69,7 +69,6 @@
   Request: GebruikerAanmeldenRequest;
   Response: GebruikerAanmeldenResponse;
   Header: RequestHeader;
-  PopupScherm: TfmPopupScherm;
 begin
   Service := GebruikerService.GetGebruikerServiceSoap();
   // request opbouwen
@@ -86,10 +85,7 @@
     try
       if Response.Header.Status <> '200' then begin
         Self.ModalResult := mrRetry;
-        PopupScherm := TfmPopupScherm.Create(self);
-        PopupScherm.lblWaarschuwing.Caption := Response.Header.Omschrijving;
-        PopupScherm.btnPopupActie.Caption := 'Probeer opnieuw';
-        PopupScherm.ShowModal;
+        ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
       end else begin
         lblGebruiker.Caption := edtInitialen.Text;
         lblGebruiker.Visible := true;
@@ -101,8 +97,6 @@
   finally
     Request.Free;
   end;
-  edtInitialen.Text := '';
-  edtPincode.Text := '';
 end;
 
 procedure TfmLoginScherm.edtInitialenKeyPress(Sender: TObject; var Key: Char);