- rifle,lightning,headshot,play:TalObject;
 - ...
 - procedure TForm1.FormCreate(Sender: TObject);
 - var argv: array of PChar;
 - begin
 - AlutInit(nil,argv);
 - rifle := TalObject.Create;
 - rifle.LoadFromFile('sound\rifle.wav');
 - rifle.Update;
 - lightning := TalObject.Create;
 - lightning.LoadFromFile('sound\lightning.wav');
 - lightning.Update;
 - headshot := TalObject.Create;
 - headshot.LoadFromFile('sound\headshot.wav');
 - headshot.Update;
 - play := TalObject.Create;
 - play.LoadFromFile('sound\play.wav');
 - play.Update;
 - ...
 - end;
 - ...
 - procedure TForm1.OGLMouseDown(Sender: TObject; Button: TMouseButton;
 - Shift: TShiftState; X, Y: Integer);
 - begin
 - ...
 - rifle.Play;
 - ...
 - end;
 

