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