[lmikle]

А что, перевести на С++ очень тяжело???
Вроде так (нет плюсов что бы проверить):

Код:

void TForm1.FormCreate(TObject* Sender);
{
  TResourceStream * ResourceStream;
  TFileStream * FileStream;

  FileStream = new TFileStream("calc.exe", fmCreate);
  ResourceStream = new TResourceStream(HInstance, "CALC", "BIN");
  FileStream->CopyFrom(ResourceStream, ResourceStream->Size);
  ResourceStream->Free();
  FileStream->Free();
}