type
  TList<T> = class(TEnumerable<T>)
    // ...
  public
    // ...
    
    function Add(const Value: T): Integer;
    procedure Insert(Index: Integer; const Value: T);

    function Remove(const Value: T): Integer;
    procedure Delete(Index: Integer);
    procedure DeleteRange(AIndex, ACount: Integer);
    function Extract(const Value: T): T;
    
    procedure Clear;
    
    property Count: Integer read FCount write SetCount;
    property Items[Index: Integer]: T read GetItem write SetItem; default;
  end;

Type
  TCompteur = Reference To Function:Integer;

type
  TForm4 = class(TForm)
    ...
  private
    { Déclarations privées }
    Compte : TCompteur;
    ...
  end;

//..........

procedure TForm4.BtnCreerClick(Sender: TObject);
Var i:Integer;
begin
  // Initialisation variable locale
  i:=0;
  // On affecte la fonction anonyme à Compte qui
  // se chargera d'en garder la référence
  Compte := Function:Integer
  Begin
    // I est utilisé dans le code bien qu'étant une variable
    // locale de BtnCreerClick()
    Result := i;
    Inc(i);
    if i>2 then
      i:=0;
  End;
end;

procedure TForm4.BtnUtiliseClick(Sender: TObject);
Var N:Integer;
begin
  // On utilise Compte, le compteur va bien suivre la séquence
  // 0 1 2 0 etc...
  for N := 0 to 9 do
    Memo1.Lines.Add(IntToStr(Compte));
end;

Function Test(Valeur:Integer):Integer;
Begin
  // test valeur hors limite
  if Valeur<0 then
    Exit(-1);
  // Traitement
  Result:=Round(SQRT(Valeur));
End;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Test(-20)));// Affiche -1
  ShowMessage(IntToStr(Test(64))); // Affiche 8
end;

  // test valeur hors limite
  if Valeur<0 then
  begin
    Result := -1;
    Exit;
  end;

Const
  crCurseur1=1;

procedure TForm1.FormCreate(Sender: TObject);
begin
// Le curseur est alors lu dans les ressources et ajouté à la liste des
// curseurs utilisables par l'application
  Screen.Cursors[crCurseur1] := LoadCursor(HInstance, 'CURSEUR');
// Le curseur est utilisable comme ceux prédéfinis :
  Button1.Cursor := crCurseur1;
end;

Type
  TTest=Class(TObject)
  End;

Type
  TTest=Class(TObject)
  strict private
    function GetNombre : Integer;
    procedure SetNombre(val : Integer);
  public
    property Nombre : Integer read GetNombre write SetNombre;
  strict private
  var
    FNombre:Integer;
  End;

//............//

function TTest.GetNombre: Integer;
begin
	result := FNombre;
end;

procedure TTest.SetNombre(val : Integer);
begin
	FNombre := val;
end;

LinkLabel1.Caption := 'C''est un lien vers <a href="http://www.developpez.com">www.developpez.com</a>';