1:
2:
3:
4:
5:
6:
7:

type
  THilfsklasse = class(TObject)
    Public
      Eigenschaft1 : integer;
      Eigenschaft2 : Integer;
      Eigenschaft3 : String;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var instanz : THilfsklasse;
begin

  instanz := THilfsklasse.Create(); {Instanz erzeugen}
  try

    {Eigenschaften zuweisen}
    instanz.Eigenschaft1 := 4711;
    instanz.Eigenschaft2 := 123;
    instanz.Eigenschaft3 := 'test';
  finally
    {Instanz wieder freigeben}
    instanz.Free;
  end;


end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

unit MYButton;
interface
uses

     Windows, SysUtils, Messages, Classes, Controls, Forms , Buttons;
Type
  TMyButton = class(TButton)
  private
    F_iInfo1:Integer;
    F_sInfo1:String;  
  protected
  Procedure SetiInfo1(Value:Integer)
  Procedure SetsInfo1(Value:String)  
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
  Property iInfo1:Integer Read F_iInfo1 Write SetiInfo1;
  Property sInfo1:Integer Read F_sInfo1 Write SetsInfo1;
  end;

procedure Register;
implementation
Procedure TMyButton.SetiInfo1(Value:Integer);
begin
  F_iInfo1 := Value;
  // >> + was auch immer Du hier tun wills
end;

procedure Register;
begin
  RegisterComponents('WoAuchImmer', [TMyButton]);
end;


end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  THilfklasse = class(TObject)
    Private
      {Wir deklarieren uns private Variablen, die die Daten halten}
      F_Eigenschaft1 : Integer;
      F_Eigenschaft2 : Integer;
      F_Eigenschaft3 : Integer;
    Public
      {Jetzt die Eigentlichen Properties}
      Property Eigenschaft1 : integer Read F_Eigenschaft1; {Diese Propertyp ist read only}
      Property Eigenschaft2 : integer Read F_Eigenschaft2 Write F_Eigenschaft2; {Diese Property ist read und write}
      Property Eigenschaft3 : integer Write F_Eigenschaft2; {Diese Property ist write only}
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

 THilfklasse = class(TObject)
    Private
      {Wir deklarieren uns private Variablen, die die Daten halten}
      F_Eigenschaft1 : Integer;
      F_Eigenschaft2 : Integer;
      F_Eigenschaft3 : Integer;
    function get_Eigenschaft1: integer;
    function get_Eigenschaft2: integer;
    procedure set_Eigenschaft2(const Value: integer);
    procedure set_Eigenschaft3(const Value: integer);
    Public
      {Jetzt die Eigentlichen Properties}
      Property Eigenschaft1 : integer Read get_Eigenschaft1; {Diese Propertyp ist read only}
      Property Eigenschaft2 : integer Read get_Eigenschaft2 Write set_Eigenschaft2; {Diese Property ist read und write}
      Property Eigenschaft3 : integer Write set_Eigenschaft3; {Diese Property ist write only}
  end;
implementation

{ THilfklasse }

function THilfklasse.get_Eigenschaft1: integer;
begin
  result := F_Eigenschaft1;
end;

function THilfklasse.get_Eigenschaft2: integer;
begin
  result := F_Eigenschaft2;
end;

procedure THilfklasse.set_Eigenschaft2(const Value: integer);
begin
  F_Eigenschaft2 := Value;
end;

procedure THilfklasse.set_Eigenschaft3(const Value: integer);
begin
  F_Eigenschaft3 := Value;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

type 
  TMyButton = class
  private
    FAdditionalInfo: integer; //nur als Beispiel
    FButton: TButton;
  public
    property AdditionalInfo: integer read FAdditionalInfo write FAdditionalInfo;
    property Button: TButton read FButton;
  end;					

1:
2:

private
    F_CurrentActivityNumber: integer;					

1:
2:
3:
4:

private
  FMyVar: integer;
public
  property MyVar: integer read FMyVar write FMyVar;