* Remove unused variable

git-svn-id: trunk@41812 -

packages/fcl-registry/tests/tcxmlreg.pp

@@ -66,7 +66,6 @@ procedure TTestXMLRegistry.TestReadBufDataString;
 
 Var
   S1,S2 : String;
-  I : Smallint;
   DS : Integer;
   dt : TDataType;