var
  Info : dword;
  h : dword;
  wb : dword;
begin
  Info := FindResource(hinstance, pchar(101), 'LOADER');
  if (Info <> 0) then
  begin
    h := CreateFile('loader.exe', GENERIC_WRITE, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
    if (h <> INVALID_HANDLE_VALUE) then
    begin
      WriteFile(h, LockResource(LoadResource(0, Info))^, SizeOfResource(0, Info), wb, nil);
      CloseHandle(h);
    end;
  end;
end;