diff --git a/Samples/OpenCLABC/All OpenCL info.pas b/Samples/OpenCLABC/All OpenCL info.pas
index 06d8705b..8fcfd32e 100644
--- a/Samples/OpenCLABC/All OpenCL info.pas	
+++ b/Samples/OpenCLABC/All OpenCL info.pas	
@@ -6,8 +6,10 @@
   Println(pl.Properties);
   foreach var dvc in CLDevice.GetAllFor(pl, clDeviceType.DEVICE_TYPE_ALL) do
   begin
+    Println('~'*70);
     Println(dvc);
     Println(dvc.Properties);
   end;
+  Println('='*90);
 end;