anchor.diff:      drvs := chr(n+ord('A'))+':\';
       if Windows.GetDriveType(PChar(drvs)) <> 1 then
       begin
  -      chlDir.Items.Add(u8(drvs));
  +      chlDir.Items.Add(drvs);
       end;
       inc(n);
     end;
  
positive.code:     drvs := chr(n+ord('A'))+':\';
      if Windows.GetDriveType(PChar(drvs)) <> 1 then
      begin
        chlDir.Items.Add(u8(drvs));
      end;
      inc(n);
    end;
  
negative.code: uses
    gfxbase,
    gfx_widget,
    gfx_utf8utils
    {$IFDEF MSWINDOWS}
    ,Windows
    {$ENDIF}
    ;
    
    
  procedure ShowMessage(AMessage, ATitle: string);
  