1:

11 Sound "run.wav"					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm4.FormCreate(Sender: TObject); 
var 
FindHandle, ResHandle: THandle; 
  ResPtr: Pointer; 
begin 
FindHandle:=FindResource(HInstance, '11', 'Sound'); 
  if FindHandle<>0 then begin 
    ResHandle:=LoadResource(HInstance, FindHandle); 
    if ResHandle<>0 then begin 
      ResPtr:=LockResource(ResHandle); 
      if ResPtr<>Nil then 
        mediaplayer1.FileName:=PChar(ResPtr); 
      UnlockResource(ResHandle); 
    end; 
    FreeResource(FindHandle); 
  end; 
end; 
end.