// Komponenten, die von "TComponent" abgeleitet sind, haben die
// Eigenschaft "Tag", der ein Wert vom Typ Integer zugeordnet
// werden kann. Da Zeiger aber auch einen Integer-Wert beherbergen,
// kann man über den Umweg "Pointer" (hier PChar) der Komponente
// einen String zuweisen.


// Getestet mit D4 unter XP

var 
  tst: string = 'Das ist ein Test.'; 

// zuweisen
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Button1.tag := Integer(PChar(tst)); 
end; 
 
// abfragen

procedure TForm1.Button1Click(Sender: TObject); 
var 
  s: string; 
begin 
  s := PChar(TComponent(Sender).tag); 
  showmessage(s); 
end;