Сегодня у нас более, чем простой урок. Бывалым врятли он понадобится, а вот новичкам можно взять на заметку.

Наверное многие замечали, что кодеры на C# часто засовывают xNet.dll в ресурсы и если в папке нет данной dll, исполняемый файл вытаскивает xNet из ресурсов и добавляет в нужную папку (часто в папку с .ехе).
Сегодня такое же мы будем проворачивать в Delphi.
Проще некуда.

Открываем нашу среду программирования (я юзаю Delphi 10) и заходим вот сюдам-с:

Здесь нам нужно засунуть в ресурсы наш файл, будь то dll или ещё какая-то лабуда. В моем случае это субтитры к фильму.

Жмем кнопочку Add и добавляем нужный файл:

Приступим к написанию кода:​

var
R: TResourceStream; // Объявляем переменную потока ресурсов
begin
// и распаковываем наш ресурс в нужную папку
 R:=TResourceStream.Create(HInstance,'Resource_1',
RT_RCDATA); // второй аргумент, 
это идентификатор ресурса. 
Его можно посмотреть и изменить в окне, 
где мы добавляли сам ресурс.
 R.SaveToFile('C:\Users\xui.sub'); // 
распаковываем нужный файл в папку
 R.Free; // чистим за собой.
end;

Все очень просто. Удачи в написании хорошего кода!