procedure TForm1.Button1Click(Sender: TObject);
var
ResourceStream: TResourceStream;
TextStream: TMemoryStream;
begin
ResourceStream := nil;
TextStream := nil;
try
ResourceStream := TResourceStream.Create(HInstance, 'TFORM1', RT_RCDATA);
TextStream := TMemoryStream.Create();
ObjectBinaryToText(ResourceStream, TextStream);
TextStream.Seek(soFromBeginning, 0);
Memo1.Lines.LoadFromStream(TextStream);
finally
ResourceStream.Free;
TextStream.Free;
end;
end;