Property - прокомментировать строку

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  // это объявление твоего класса
  TMyClass = class
  private
    FX: integer;
    FY: integer;
    function GetSumm: integer;
  public
    property X: integer read FX write FX;   // свойств без геттеров/сеттеров. пишет напрямую
    property Y: integer read FY write FY;   // в защищенное поле класса
    property Summ: integer read GetSumm;    // свойство ТОЛЬКО ДЛЯ ЧТЕНИЯ, использующее геттер
  end;
  // конец оъявления
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  MyClass: TMyClass;
 
implementation
 
{$R *.dfm}
 
{ TMyClass }
 
// реализация метода ТВОЕГО КЛАССА
function TMyClass.GetSumm: integer;
begin
  Result:= FX + FY;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // использование в программе
 
  // создание класса
  MyClass:= TMyClass.Create;
  // присвоение свойств
  MyClass.X:= 10;
  MyClass.Y:= 20;
  // чтение вычисляемого свойства
  ShowMessage('summ = ' + IntToStr(MyClass.Summ));
end;
 
end.