anchor.diff:    buf: array[0..260] of Char;
     n: Integer;
     f: TSearchRec;
  -  i: Integer;
   begin
     Result := False;
   
  
positive.code:     finally
        Free;
      end;
  
      kmpinf.RemoveFilePaths;
  
  
negative.code: 
    CheckForDangerousFiles;
    CheckKeyboardVersions;
  
    GetTempPath(260, buf);
    FTempPath := buf;
  