Команды Pause и Delay вместо Sleep

procedure TForm1.Button2Click(Sender: TObject);
var
  d: integer;
begin
  Label2.Caption := 'Paused';
  d := 5000;
  repeat
    Dec(d, 16);
    Sleep(15);
    Application.ProcessMessages;
  until d < 0;
  Label2.Caption := '';
end;

Inf_Pleyer.FileName := 'Informator\44K\0_1_Priv.mp3';
Inf_Pleyer.Open;
Inf_Pleyer.Play;
Sleep (Inf_Pleyer.Length);
Inf_Pleyer.FileName := 'Informator\44K\0_2_Po_marsh.mp3';
Inf_Pleyer.Open;
Inf_Pleyer.Play;
Sleep (Inf_Pleyer.Length);
Inf_Pleyer.FileName := 'Informator\44K\0_3_Do_kon_ost.mp3';
Inf_Pleyer.Open;
Inf_Pleyer.Play;
Sleep (Inf_Pleyer.Length);
Inf_Pleyer.FileName := Inf [11];
Inf_Pleyer.Open;
Inf_Pleyer.Play;

unit SmpPlay;
 
interface
 
uses
  Classes, MMSystem;
 
type
  TSimplePlayer = class(TThread)
  private
    { Private declarations }
    FOnStopPlaying: TNotifyEvent;
    FPlayList: TStringList;
  protected
    procedure Execute; override;
  public
    constructor Create(PlayList: TStrings);
    destructor Destroy; override;
    procedure StartPlay;
    property OnStopPlaying: TNotifyEvent read FOnStopPlaying write FOnStopPlaying;
  end;
 
implementation
 
{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,
 
      Synchronize(UpdateCaption);
 
  and UpdateCaption could look like,
 
    procedure TSimplePlayer.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }
 
{ TSimplePlayer }
 
constructor TSimplePlayer.Create(PlayList: TStrings);
begin
  inherited Create(true);
  FPlayList := TStringList.Create;
  FPlayList.Assign(PlayList);
end;
 
destructor TSimplePlayer.Destroy;
begin
  FPlayList.Free;
end;
 
procedure TSimplePlayer.StartPlay;
begin
  Resume;
end;
 
procedure TSimplePlayer.Execute;
var
  i: integer;
begin
  i := 0;
  while (i < FPlayList.Count) and not Terminated do begin
    PlaySound(PAnsiChar(FPlayList.Strings[i]), 0, SND_FILENAME or SND_SYNC or SND_NODEFAULT);
    Inc(i);
  end;
end;
 
end.