Index: PlanScan/UI/LoginScherm.pas
===================================================================
diff -u -r347 -r634
--- PlanScan/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 347)
+++ PlanScan/UI/LoginScherm.pas	(.../LoginScherm.pas)	(revision 634)
@@ -13,8 +13,10 @@
     edtLoginCode: TEdit;
     edtInitialen: TEdit;
     btnLogin: TButton;
+    lblVersieNr: TLabel;
+    procedure FormShow(Sender: TObject);
   private
-    { Private declarations }
+    function GeefVersieNummer(): string;
   public
     { Public declarations }
   end;
@@ -26,4 +28,17 @@
 
 {$R *.dfm}
 
+procedure TfmLogin.FormShow(Sender: TObject);
+begin
+  lblVersieNr.Caption := 'v' + GeefVersieNummer;
+end;
+
+function TfmLogin.GeefVersieNummer: string;
+var
+  rec: LongRec;
+begin
+  rec := LongRec(GetFileVersion(ParamStr(0)));
+  result := Format('%d.%d', [rec.Hi, rec.Lo])
+end;
+
 end.