anchor.diff:  IMPLEMENTATION
   
   {$R *.lfm}
  -{$R *.res}
   
   { TwinSize }
   
  
positive.code:     str += '+------------------------+--------------------------------------+-----------------------------------+  ' + #13#10;
  
      txtSize.Lines.Clear;
      txtSize.Lines[0] := str;
      //htmWireSize.L:=str;
    END;
  
  
negative.code:   VAR
      str: string;
    BEGIN
      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;
  