diff --git a/tests/webtbs/tw39933.pp b/tests/webtbs/tw39933.pp
index b8da6256df..31a290a5bf 100644
--- a/tests/webtbs/tw39933.pp
+++ b/tests/webtbs/tw39933.pp
@@ -1,6 +1,4 @@
 { %norun }
-program Project1;
-
 {$mode delphi}
 
 var a: TArray<integer>;