Kilka plików w zasobach

YO.

Gdy chcę wydobyć kilka plików z zasobów, robię coś takiego:

var
res: TResourceStream

begin
res:=TResourceStream.create(hInstance, 'PROG', rt_RCDATA);
res.saveToFile('C:\program.exe');
res.free

res:=TResourceStream.create(hInstance, 'PROG2', rt_RCDATA);
res.saveToFile('C:\program2.exe');
res.free

i.t.d.
Czy mogę wydobyć kilka plików naraz? Tzn. bez ciągłego pisania
TREsourceStream.create i res.free?

(po prostu tworzę, wyjmuje pliki, zapisuje je i zwalniam)

hmm dobry przykład jest zawarty z Delphi :) resexplorer, tam jest wszystko poruszone jesli idzie o zasoby, jak rozpoznawać, jak wyciagać z plikow itp

[dopisane]
poza tym oile dobrze pamietam To TFileStream ma w sobie loadres wiec jeśli jest ten sam plik mozesz wykorzystac to