Fix more compilation errors

git-svn-id: trunk@38761 -

tests/test/tcpstr18.pp

@@ -36,7 +36,6 @@ uses
    for fpwidestring and unicodeducet use }
   strings;
 {$endif def USE_INTERNAL_UNICODE}
-{$endif}
 
 procedure TestRawByte(const Source: RawByteString; cp: word; const reason: integer);
 begin

tests/test/tunistr1.pp

@@ -27,7 +27,6 @@ uses
    but simpifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
-{$endif}
 {$endif def USE_INTERNAL_UNICODE}
 
 var

tests/test/tunistr2.pp

@@ -27,7 +27,6 @@ uses
    but simpifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
-{$endif}
 {$endif def USE_INTERNAL_UNICODE}
 
 var

tests/test/twrstr9.pp

@@ -26,7 +26,6 @@ uses
    but simpifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
-{$endif}
 
 type
   ts866 = type ansistring( {$ifdef android} 1251 {$else} 866 {$endif} );

tests/test/units/system/tdir2.pp

@@ -42,7 +42,6 @@ uses
    but simpifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
-{$endif}
 {$endif def USE_INTERNAL_UNICODE}
 
 procedure test(value, required: longint);