Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

implementation

 {$R *.DFM}

 {$R test.res} //Your resource file 

procedure TForm1.Button1Click(Sender: TObject);
 var
   buffer: array[0..255] of Char;
 begin
   Loadstring(hinstance, 1, @buffer, 255);  //1 = first string 
  label1.Caption := StrPas(buffer);
 end;