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.