function GetUniqueName(SourceName: ansistring): ansistring;
var
  S: ansistring;
  I, x: Integer;
begin
  Result := '';
  S := Copy(SourceName, 1, 8);
  for I := 1 to Length(S) do
  begin
    case S[I] of
      'a'..'z', 'A'..'Z', '0'..'9', '-': Result := Result + S[I];
      ' ': Result := Result + Chr(Ord(S[I]) mod 26 + 97);
      'Ё': Result := Result +'b';
      'ё': Result := Result +'d'
    else
      begin
      if Ord(S[I]) < Ord('a') then
          Result := Result + Chr(Ord(S[I]) mod 26 + 97)
        else
        begin
          x := Ord(S[I]) mod 26 + 103;
          if x > 122 then
            x := x - 26;
          Result := Result + Chr(x);
        end;
      end;
    end;
  end;
end;