unit linetes;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  kavesimu, ExtCtrls, KSimMot, KSheet;

type
  TForm1 = class(TForm)
    Scale1: TScale;
    sLine1: TsLine;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    t : TSheetTile;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  t := TSheetTile.Create(self);
  t.Parent := Scale1;
  t.Top := 100;
  t.Left := 100;
  t.Height := 20;
  t.Width := 50;
  
end;

end.