type
  TWideTag = record      //Pour stocker les données.
        Data1 : String;      //Exemple d'une chaîne.
        Data2 : Extended; //Exemple d'un Extended.
  end;
  PWideTag = ^TWideTag; //Pointe sur le record.


procedure TForm1.FormCreate(Sender: TObject);
var   TagTest : PWideTag;
begin
  New(TagTest);
  TagTest.Data1 := 'Chaîne-test';
  TagTest.Data2 := 0.1234;
  UnCompo.Tag := Longint(TagTest); //Transtypage Pointer->entier
end;


procedure TForm1.FormDestroy(Sender: TObject);
var   WideTag : PWideTag;
begin
 WideTag := Pointer(UnCompo.Tag); //Transtypage entier->Pointer.
 Dispose(WideTag);   //Libère la mémoire adressée par le pointeur.
end;


{Exemple d'utilisation.}
procedure TForm1.Button1Click(Sender: TObject);
var   WideTag : PWideTag;
begin
  WideTag := Pointer(UnCompo.Tag); //Transtypage entier->Pointer.
  Edit1.Text := WideTag.Data1;          //Affiche les champs du record.
  Edit2.Text := FloatToStr(WideTag.Data2);
end;

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TEdit = class(StdCtrls.TEdit)
  private
    fDataTag : pointer;
    procedure SetDataTag(value : pointer);
  public
    destructor Destroy; override;
    property DataTag : pointer read fDataTag write SetDataTag default nil;
  end;

  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
{ TEdit }
destructor TEdit.Destroy;
begin
  SetDataTag(Nil);
  inherited Destroy;
end;
procedure TEdit.SetDataTag(value: pointer);
begin
  if fDataTag <> Value then
  begin
    if fDataTag <> nil then
       Dispose(fDataTag);
    fDataTag := Value;
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var ptr : ^Single;
begin
  New(ptr);
  ptr^ := Pi;
  Edit1.DataTag := ptr;
  New(ptr);
  ptr^ := 180/Pi;
  Edit2.DataTag := ptr;
  Edit1.Text := Format('%.4f',[ Single(Edit1.DataTag^) ]);
  Edit2.Text := Format('%.4f',[ Single(Edit2.DataTag^) ]);
end;
end.