anchor.diff:    VAR
       str: string;
     BEGIN
  -
  -    str:=LoadResource(0, 'WIRE_CU_1', RC_DATA);
  -
  +    htmViewer.LoadFromFile('res/wire_Cu_1.html');
  +    htmViewer.Update;
  +    htmV2.LoadFromFile('res/wire_Cu_1.html', HtmlType);
  +    //htmWireSize.LoadFromFile('res\wire_Cu_1.htm');
  +    //htmWireSize.Update;
       str := '+------------------------+--------------------------------------+-----------------------------------+' + #13#10;
       str += '|Сеченине токопроводящей |   Провода  Напряжение в 220 В        |      Напряжение в 380 В           |'
         + #13#10;
  
positive.code:     str += '+------------------------+--------------------------------------+-----------------------------------+  ' + #13#10;
  
      txtSize.Lines.Clear;
      txtSize.Lines[0] := str;
      //htmWireSize.L:=str;
    END;
  
  
negative.code: IMPLEMENTATION
  
  {$R *.lfm}
  
  { TwinSize }
  
  