anchor.diff:  IMPLEMENTATION
   
   {$R *.lfm}
  -{$R *.res}
   
   { TwinSize }
   
  
positive.code: INTERFACE
  
  USES
    Classes, SysUtils, fphttpwebclient, FileUtil, HtmlView, TplButtonUnit,
  	cySimpleGauge, BrookFCLEventLogHandler, Forms, Controls, Graphics, Dialogs,
  	StdCtrls, LResources;
  
  TYPE
  
    { TwinSize }
  
    TwinSize = CLASS(TForm)
      btn1WireAl: TButton;
      btn1WireCu: TButton;
  		htmWireSize: THtmlViewer;
      txtSize:    TMemo;
      PROCEDURE btn1WireCuClick(Sender: TObject);
    PRIVATE
      { private declarations }
  
negative.code:     str += '+------------------------+--------------------------------------+-----------------------------------+  ' + #13#10;
  
      txtSize.Lines.Clear;
      txtSize.Lines.LoadFromFile('res/wire_Cu_1.txt');
      //txtSize.Lines[0] := str;
      //htmWireSize.L:=str;
    END;
  
  