Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r49 -r53
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 49)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 53)
@@ -19,14 +19,15 @@
     lblTotaalAantal: TLabel;
     lblSlash: TLabel;
     imgGls: TImage;
+    btnInfo: TButton;
     procedure FormShow(Sender: TObject);
     procedure actPalletExecute(Sender: TObject);
     procedure actHomeExecute(Sender: TObject);
     procedure actVolgendeExecute(Sender: TObject);
   private
     { Private declarations }
   public
-    { Public declarations }
+    function GeefToelevering: String;
   end;
 
 var
@@ -106,4 +107,9 @@
   inherited;
 end;
 
+function TfmDnaCodeScherm.GeefToelevering: String;
+begin
+  result := lblToelevering.Caption;
+end;
+
 end.