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

globale Variable = var List: TStrings;


TForm1.FormCreate(Sender: TObject)
begin
List := TStringList.Create;
end;


TForm1.FormClose(Sender: TObject);
begin
List.Free;
end;					

1:
2:

private
List: TStrings;					

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

type
  TForm1 = class(TForm)
  private
    { private declarations }
    fList: TStringList
  public
    { public declarations }
  end;					

1:
2:
3:

// im Public-Bereich des Formulars
  public
    property myList : TStringlist read GetList write SetList;					

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

   Function TForm.GetList : TStringList;
   begin
     Result := fList // Dies musst Du manuell eintragen
   end;

   procedure TForm.SetList(Value : TStringList);
   begin
     fList := Value;  // Dies musst Du ebenfalls selber eintragen.
   end;					

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

   constructor TForm.Create(AOwner: TWinControl);  // AOwner ist die 
   begin
    inherited;     // es wird die Create-Prozedur von TCustomForm, dem "Vorgänger" von TForm aufgerufen, um alle wichtigen Dinge zu initialisieren
    fList : TStringList.Create(Self);  // Self ist eine Variable, die in Klassen die Referenz auf die Klasse selber bezeichnet (= selbst).
   end;

   destructor TForm.Destroy;
   begin
    fList.Destroy;
    inherited; 
   end;					

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

// im Formular (in Prozeduren des Formulars, gekennzeichnet durch vorangestelltes "TForm.")

   myList.Strings.Clear;
   myList.Strings.Add(Zeile);

// außerhalb des Formulars (Form = Instanz Deines Formulars TForm)
   
   Form.myList.Strings.Clear;
   Form.myList.Strings.Add(Zeile);					

1:

   property myListe : TStringlist read GetListe;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

private
  FMyList: TStrings;
  function GetItem(Index: integer): string;
  procedure SetItem(Index: integer; const Value: string);
public
  procedure AddItem(const Value: string);
  property Items[Index: integer]: string read GetItem write SetItem;

...

function TKlasse.GetItem(Index: integer): string;
begin
  Result := FMyList[Index];
end;

procedure TKlasse.SetItem(Index: integer; const Value: string);
begin
  FMyList[Index] := Value;
end;

procedure TKlasse.AddItem(const Value: string);
begin
  FMyList.Add(Value);
end;					

1:

property List: TStringList read fList write fList;					

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

unit Tralala;

interface

...

var
  MeineListe: TStringlist;

implementation

...					

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

private
  fFoo: TFoo;
public
  property Foo: TFoo read GetFoo write SetFoo;

procedure TTest.GetFoo: TFoo;
begin
  Result:= fFoo;
end;

procedure TTest.SetFoo(const aFoo: TFoo);
begin
  fFoo:= aFoo;
end;					

1:
2:
3:
4:

private
  fFoo: TFoo;
public
  property Foo: TFoo read fFoo write fFoo;