Index: AAPClient/UI/DrieKnoppenScherm.pas
===================================================================
diff -u -r24 -r26
--- AAPClient/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 24)
+++ AAPClient/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 26)
@@ -26,6 +26,8 @@
     procedure FormCreate(Sender: TObject);
   private
     fImagesScherm: TImagesScherm;
+  protected
+    function ComputerName: String;
   public
     { Public declarations }
   end;
@@ -72,4 +74,16 @@
   
 end;
 
+function TfmDrieKnoppenScherm.ComputerName: String;
+var
+  buffer: array[0..255] of char;
+  size: dword;
+begin
+  size := 256;
+  if GetComputerName(buffer, size) then
+    Result := buffer
+  else
+    Result := ''
+end;
+
 end.