diff --git a/examples/selection.pp b/examples/selection.pp
index 967626d1b0..a60df52946 100644
--- a/examples/selection.pp
+++ b/examples/selection.pp
@@ -20,7 +20,7 @@
 }
 program Selection;
 
-{$mode delphi}
+{$mode objfpc}{$H+}
 
 uses
   Interfaces,
diff --git a/examples/selectionform.pp b/examples/selectionform.pp
index 7a6cc4b602..54cc25fb0a 100644
--- a/examples/selectionform.pp
+++ b/examples/selectionform.pp
@@ -22,7 +22,7 @@ unit SelectionForm;
 
 interface
 
-{$mode delphi}
+{$mode objfpc}{$H+}
 
 uses
   Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
diff --git a/examples/speedtest.pp b/examples/speedtest.pp
index 00db4a1c0d..8d8beca6d1 100644
--- a/examples/speedtest.pp
+++ b/examples/speedtest.pp
@@ -20,7 +20,7 @@
 }
 program SpeedTest;
 
-{$mode Delphi}
+{$mode objfpc}{$H+}
 
 uses 
   Interfaces, Forms, SysUtils, Buttons, Classes, StdCtrls, LCLType,