procedure tform1.prehrat(ResName: pchar);
var
    InfoBlock: HRSRC;
    GlobalMemoryBlock: HGLOBAL;
    size: longword;
begin
InfoBlock := FindResource(hInstance, resname, 'wave');

    if InfoBlock = 0 then
      raise Exception.Create(SysErrorMessage(GetLastError));

size := SizeofResource(hInstance, InfoBlock);

    if size = 0 then
      raise Exception.Create(SysErrorMessage(GetLastError));

GlobalMemoryBlock := LoadResource(hInstance, InfoBlock);

    if GlobalMemoryBlock = 0 then
      raise Exception.Create(SysErrorMessage(GetLastError));
     
sndPlaySound(LockResource(GlobalMemoryBlock),SND_MEMORY or SND_NODEFAULT or SND_ASYNC);

end;