извлечение файла из ресурсов delphi

в общем такой вопрос: для извелечения ресурсов я использую такуй процедуру:

Code:

procedure ExtractRes(ResType, ResName, ResNewName : String);    
var Res : TResourceStream;    
begin Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));    
Res.SavetoFile(ResNewName); Res.Free;    
end;    

все бы ничего, но описание класса TResourceStream находиться в модуле classes, который дает привес около 80 кб к стабу.
можно ли как то переписать ее на winapi?