Delphiで小さな実行ファイルを作ろう

リソースの設定方法と読み方判りました。
test.rc
TEST RCDATA "test.MyArc"
　こんな1行のファイルを作ります。
　TEST は識別名で好きな名前を付けます
　RCDATAは決まっています
　test.MyArcは埋め込みたいファイルです

これを "プロジェクトに追加" で追加すれば勝手に test.MyArcが追加されます

このリソースを読む方法は

function setup:string;
var ResInstance,Size :integer;
var hr:HRSRC;
var src:PByte;
begin
　ResInstance := 0; //実行ファイルの場合は0を渡せばいいみたい
　//　ResInstance := System.FindResourceHInstance(HInstance);
　hr 　:= FindResource　(ResInstance, 'TEST', RT_RCDATA);
　Size := SizeofResource(ResInstance, hr );
　src　:= PByte(LockResource( LoadResource(ResInstance,hr) ));
　UnArchive(src,Size); //自作のファイル展開ルーチン
end;