[Pavel_Aleksandrovich]

есть модуль:

Код:

unit Balka;

interface
         uses SysUtils, Dialogs, Classes, StdCtrls, Graphics;
         type
             Tbalka=class
                   private
                          fdlina:real;
                          fploshad:real;
                          fshema:tcanvas;
                          procedure setshema(value:tcanvas);
                   published
                            property dlina:real
                                    read fdlina
                                    write fdlina;
                            property ploshad:real
                                    read fploshad
                                    write fploshad;
                            property shema:tcanvas
                                    read fshema
                                    write setshema;
             end;

implementation
              procedure setshema(value:tcanvas);
                       var
                          x1, y1, x2, y2:real;
                       begin
                            x1:=100;
                            y1:=100;
                            x2:=x1+fdlina;
                            y2:=y1+20;
                            value.Rectangle(x1, y1, x2, y2);
                       end;

end.

Что нужно:
- описать процедуру графического отображения здесь в модуле
- значения полей буду определять в другом unit, а описать процедуру графич построения нужно в этом модуле и она зависит от поля

как реализовать данный момент?