Свойство типа record

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TRec = record
    A, B, C: string;
  end;
 
  TForm1 = class(TForm)
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    Memo1: TMemo;
    procedure LabeledEdit1Change(Sender: TObject);
    procedure LabeledEdit2Change(Sender: TObject);
    procedure LabeledEdit3Change(Sender: TObject);
  private
    { Private declarations }
    FProps: TRec;
    procedure SetProps(const Props: TRec);
 
  public
    { Public declarations }
    property Props: TRec read FProps write SetProps;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.SetProps(const Props: TRec);
begin
  FProps := Props;
 
  with Memo1 do
  begin
    Clear;
    Lines.Add('A=' + FProps.A);
    Lines.Add('B=' + FProps.B);
    Lines.Add('c=' + FProps.C);
  end;
end;
 
procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
  Props.A := LabeledEdit1.Text;
end;
 
procedure TForm1.LabeledEdit2Change(Sender: TObject);
begin
  Props.B := LabeledEdit2.Text;
end;
 
procedure TForm1.LabeledEdit3Change(Sender: TObject);
begin
  Props.C := LabeledEdit3.Text;
end;
 
end.

function GetProperty:PRecord;
begin
result:=@FRecord;
end;