Строки из ресурса

//http://www.tdelphiblog.com/2013/11/blog-post.html
procedure TForm1.FormCreate(Sender: TObject);
var
RS: TCustomMemoryStream;
begin
    RS:= TResourceStream.Create(HInstance, 'VK', RT_RCDATA);
                                        // 'VK' наименование ресурса
    //запуск из меню "проект"
    RS.SaveToFile(ExtractFilePath(ParamStr(0))+'1111.txt');
    FreeAndNil(RS); //нахуй
    //проверка
    Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'1111.txt');
end;