Index: ProScan/UI/LoginScherm2.pas
===================================================================
diff -u -r472 -r631
--- ProScan/UI/LoginScherm2.pas	(.../LoginScherm2.pas)	(revision 472)
+++ ProScan/UI/LoginScherm2.pas	(.../LoginScherm2.pas)	(revision 631)
@@ -15,6 +15,7 @@
     edtInitialen: TEdit;
     imgAfmelden: TImage;
     lblUrlServer: TLabel;
+    lblVersieNr: TLabel;
     procedure FormShow(Sender: TObject);
     procedure edtInitialenKeyUp(Sender: TObject; var Key: Word;
       Shift: TShiftState);
@@ -26,6 +27,7 @@
     procedure SetStatusLoginButton;
     procedure HuidigeGebruikerAfmelden;
     procedure SetContext;
+    function GeefVersieNummer(): string;
   public
     { Public declarations }
   end;
@@ -92,6 +94,7 @@
   pnlTop.Visible := False;
   SetStatusLoginButton;
   lblUrlServer.Caption := UiContext.ServerName;
+  lblVersieNr.Caption :=  'v' + GetAppVersionStr();
 end;
 
 procedure TfmLoginScherm2.HuidigeGebruikerAfmelden;
@@ -122,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.
Index: ProScan/UI/LoginScherm2.dfm
===================================================================
diff -u -r465 -r631
--- ProScan/UI/LoginScherm2.dfm	(.../LoginScherm2.dfm)	(revision 465)
+++ ProScan/UI/LoginScherm2.dfm	(.../LoginScherm2.dfm)	(revision 631)
@@ -412,6 +412,18 @@
     Font.Style = []
     ParentFont = False
   end
+  object lblVersieNr: TLabel
+    Left = 448
+    Top = 616
+    Width = 4
+    Height = 16
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
   object btnLogin: TButton
     Left = 64
     Top = 496