- rm unused variable from LFNFindFirst

git-svn-id: trunk@27157 -

rtl/msdos/dos.pp

@@ -583,7 +583,6 @@ var
 
 procedure LFNFindFirst(path:pchar;attr:longint;var s:searchrec);
 var
-  i : longint;
   w : LFNSearchRec;
 begin
   { allow slash as backslash }