"Пнуть" компонент при запуске программы

procedure TForm1.TrBrZChange(Sender: TObject);
begin
  lb2.Caption := IntToStr(TrBrZ.Position)
end;

  TDim = record
    l1, l2, l3 :TLine;
    с :Tcolor;
    w:integer;
  end;

  T_Line = class
    private
    public
//                ....
//                свойства
    property A:Extended read ReadA write WriteA;
//                ....
                Cnv:TCanvas;
                constructor Create;
//                procedure Draw;
  end;

 T_Line = class
    o, b, f, A: TPoint;
    db, df : integer;
//    Ae: extended;
    procedure WriteA(A:extended);
    function  ReadA:Extended;
  private
  public
    // свойства
    property Ae:Extended read ReadA write WriteA;
    //                ....
    constructor Create;
    //                procedure Draw;
  end;{}
 
 
 
implementation
 
{$R *.dfm}
 
//******************************************************************************
 
procedure T_Line.WriteA(A:extended);
begin
  Ae := A;
end;
function T_Line.ReadA:Extended;
begin
  Result := Ae;
end;

property MyProperty : integer  read GetMyProperty write SetMyProperty;

unit Line_class;
 
interface
 
uses
//  Windows, //  Messages,//  SysUtils,//  Variants,//  Classes,
  Types,
  Math;
 
type
 
 T_Line = class
    o, b, f, A_: TPoint;
    db, df, d3 : integer;
//    Perspective: boolean;
//    Ae: extended;
  private
  public
    // свойства
    procedure SetA(Ap: TPoint);
    function  GetA: TPoint;
    property A: TPoint read GetA write SetA;
 
    procedure SetAe(Ap: Extended);
    function  GetAe: Extended;
    property Ae:Extended read GetAe write SetAe;
 
    procedure SetPersp(persp: boolean);
    function  GetPersp: boolean;
    property Perspective: boolean read GetPersp write SetPersp;
  end;
 
 
 
implementation
 
function T_Line.GetA: TPoint;
begin
  Result := A;
end;
 
procedure T_Line.SetA(Ap:TPoint);
begin
  A := Ap;
end;
 
function T_Line.GetAe:Extended;
begin
  Result := Ae;
end;
 
procedure T_Line.SetAe(Ap:extended);
begin
  Ae := Ap;
end;
 
function T_Line.GetPersp: boolean;
begin
  Result := Perspective;
end;
 
procedure T_Line.SetPersp(Persp: boolean);
begin
  Perspective := Persp;
end;
 
end.

type Txxx=class
               private
               FProp1:...
               FProp2:...
               ..........
               public
               property Prop1:... read GetProp1 write SetProp1;
               property Prop2:... read GetProp2 write SetProp2;
               ..........
               function GetProp1:...
               procedure SetProp1(...);  
               function GetProp2:...
               procedure SetProp2(...);  
               ...........
               end;

function Txxx.GetProp1:...
begin
Result:=FProp1;
end;
 
procedure Txxx.SetProp1(...)
begin
FProp1:=...
//------Какие-то ещё действия
end;

type Txxx=class
                .....
                procedure Calculate;
                .....
                end;
.....
procedure SetProp1
...........
Calculate;
........
end;
 
.....
procedure SetProp2
...........
Calculate;
........
end;

TMyClass=class
private
  FProp1:integer;
  FProp2:string;
  function GetProp1:integer;
  procedufre SetProp1(value:integer);
  function GetProp2:string;
  procedure SetProp2(value:string);
public
  property Prop1 : integer read GetProp1 write SetProp1;
  property Prop2 : string read GetProp2 write SetProp2;
end;

procedure TMyClass.SetProp1(value:integer);
begin
  FProp1:=Value;
  init;
end;
procedure TMyClass.SetProp2(value:string);
begin
  FProp2:=Value;
  init;
end;

type
 
 T_Line = class
  private
    // координаты: центра, начала, конца, угла, угла
    fO, fB, fF, fA, fA_: TPoint;
    // длины: начала, конца, третьей точки (?)
    fdB, fdF, fd3 : integer;
    fPersp: boolean; // режим перспективы/искажения или нет (перпендикуляры)
    fAe: extended;  // угол поворота в радианах
  protected
    // методы свойств
    function  GetA: TPoint;
    procedure SetA(Ap: TPoint);
    function  GetAe: Extended;
    procedure SetAe(Ap: Extended);
    function  GetPersp: boolean;
    procedure SetPersp(persp: boolean);
 
    procedure RotateA;
    procedure Calculate;
  public
    procedure Init;
    // свойства
    property A: TPoint read GetA write SetA;
    property Ae:Extended read GetAe write SetAe;
    property Persp: boolean read GetPersp write SetPersp;
 
  end;

procedure T_Line.Init;
begin
    fO.X := 0; fO.Y := 0;
    fB.X := 0; fB.Y := 0;
    fF.X := 0; fF.Y := 0;
    fA.X := 0; fA.Y := 0;
    fA_.X:= 0; fA_.Y:= 0;
    fdB := cdB;
    fdF := cdF;
    fd3 := 0;
    fPersp:= false;
    fAe := 0;
end;