[morebeauty]

Хрень это все........

Код:

type
  TForm1 = class(TForm)
    btn1: TButton;
    txt1: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;

    procedure btn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure txt1Change(Sender: TObject);
  private
    FMyVar: string;
    function GetMyVar: string;
    procedure SetMyVar(const Value: string);
    { Private declarations }
  public
    property MyVar:string read GetMyVar write SetMyVar;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  MyVar:='123';
end;

function TForm1.GetMyVar: string;
begin
  result:=FMyVar;
end;

procedure TForm1.SetMyVar(const Value: string);
begin
  FMyVar:=Value;
  if txt1.text<>Fmyvar then
    txt1.Text:=FMyVar;
  lbl1.Caption:=FMyVar;
  lbl2.Caption:=FMyVar;
  lbl3.Caption:=FMyVar;
end;

procedure TForm1.txt1Change(Sender: TObject);
begin
  MyVar:=txt1.Text;
end;