Pertpostavljam da ti treba pustanje zvuka u Delphi-u. Za Pascal pod DOS-om bi bio problem, mislim. U svakom slucaju za Delphi ovako:


Na glavnu formu u dogadjaj OnCreate postavis sledeci kod:


PlaySound( PChar( 'neki_zvuk.wav' ), 0, SND_ALIAS + SND_NOSTOP );

U uses moras da stavis "MMSystem".


Ako hoces da stavis da se zvuk cuje kada je glavna forma vec vidljiva onda u OnPaint forme stavi sledeci kod:

...
begin
OnPaint := NIL;
PlaySound( PChar( 'neki_zvuk.wav' ), 0, SND_ALIAS + SND_NOSTOP );
end;

Ako hoces da pustas zvukove u pascalu (ne u Delphiu), skini unite od net-a, mislim da ih ima dosta na www.simtel.net.