* added comment what the bug is

tests/webtbs/tw3063.pp

@@ -3,14 +3,15 @@
 { e-mail: [email protected] }
 program scope;
 
-{$mode delphi}
+{$ifdef fpc}{$mode delphi}{$endif}
 
-uses classes;
+uses Classes;
 
 var
   error: string;
 begin
   with TStringList.Create do try
+    { TStringList.Error is protected and is not visible }
     error := 'some text';
     WriteLn( error );
   finally