// Als erstes erstellt man eine Textdatei mit ähnlichem Inhalt:


STRINGTABLE 
{ 
 100, "Test" 
 101, "Versuch" 
 200, "Delphi" 
 201, "DBR" 
} 
 
// Das Ganze wird beispielsweise unter "xxx.rc" gespeichert (*.rc = Resource) 
// und dann mittels "rcc32.exe" zu "xxx.res" kompiliert.

// Im Programm kann man es dann so nutzen:
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
{$R xxx.res}    // <--- Resource einbinden
 
function ResStr(i: integer): string; 
var p: PChar; 
begin 
  getmem(p, 1024); 
  loadstring(HInstance, i, p, 1024); 
  result := p; 
  freemem(p); 
end; 
 
// Beispielaufruf 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  label1.caption := ResStr(101); 
end;