Index: ProScan/UI/LoginScherm2.pas
===================================================================
diff -u -r396 -r633
--- ProScan/UI/LoginScherm2.pas	(.../LoginScherm2.pas)	(revision 396)
+++ ProScan/UI/LoginScherm2.pas	(.../LoginScherm2.pas)	(revision 633)
@@ -14,6 +14,8 @@
     edtPincode: TEdit;
     edtInitialen: TEdit;
     imgAfmelden: TImage;
+    lblUrlServer: TLabel;
+    lblVersieNr: TLabel;
     procedure FormShow(Sender: TObject);
     procedure edtInitialenKeyUp(Sender: TObject; var Key: Word;
       Shift: TShiftState);
@@ -25,6 +27,7 @@
     procedure SetStatusLoginButton;
     procedure HuidigeGebruikerAfmelden;
     procedure SetContext;
+    function GeefVersieNummer(): string;
   public
     { Public declarations }
   end;
@@ -42,8 +45,10 @@
 procedure TfmLoginScherm2.actVolgendeExecute(Sender: TObject);
 var
   Response: GebruikerAanmeldenResponse;
+  fAgent: TAgent;
 begin
-  Response := TAgent.Create(UiContext).GebruikerAanmelden(edtInitialen.Text,edtPinCode.Text);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.GebruikerAanmelden(edtInitialen.Text,edtPinCode.Text);
   try
     if Response.Header.Status <> '200' then begin
       Self.ModalResult := mrLogin;
@@ -56,6 +61,7 @@
     end;
   finally
     Response.Free;
+    fAgent.Free;
   end;
   PostMessage(Self.Handle,WM_Close,0,0);
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
@@ -87,11 +93,18 @@
   pnlDrieKnoppen.Visible := False;
   pnlTop.Visible := False;
   SetStatusLoginButton;
+  lblUrlServer.Caption := UiContext.ServerName;
+  lblVersieNr.Caption :=  'v' + GeefVersieNummer();
 end;
 
 procedure TfmLoginScherm2.HuidigeGebruikerAfmelden;
+var
+  fAgent: TAgent;
+  fGelukt: boolean;
 begin
-  TAgent.Create(UiContext).GebruikerAfmelden();
+  fAgent := TAgent.Create(UiContext);
+  fGelukt := fAgent.GebruikerAfmelden();
+  fAgent.Free;
 end;
 
 procedure TfmLoginScherm2.imgAfmeldenClick(Sender: TObject);
@@ -112,4 +125,13 @@
   btnLogin.Enabled := ((edtPincode.Text <> '') and (edtInitialen.Text <> ''));
 end;
 
+
+function TfmLoginScherm2.GeefVersieNummer: string;
+var
+  rec: LongRec;
+begin
+  rec := LongRec(GetFileVersion(ParamStr(0)));
+  result := Format('%d.%d', [rec.Hi, rec.Lo])
+end;
+
 end.