Ускорить загрузку звукового файла и его воспроизведение

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, mmsystem;
...
var
  Form1: TForm1;
  num, i1  : Integer;  // Количество строк 
  Start:Word = 0;      // Счетчик фраз внутренний 
  tRu, zRu : array of String;  // Динамические массивы   
  Btn_Pauza, Btn_End : Boolean; //Переменные-"флажки" для определения "нажата ли кнопка?"
  FileName, DirFile: String;
...
procedure VvodMassiva;  // ввод динамических массивов
...
procedure TForm1.Button1Click(Sender: TObject);   // Загрузить файл в Memo1 ...    
begin
  if OpenDialog1.Execute then // Загрузка файла в Memo
      Form1.Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  DirFile:=ExtractFilePath(OpenDialog1.FileName); 
  VvodMassiva;
  Form1.Memo1.Lines.Clear; // Очищаем Memo после
  Form1.Label2.Caption:='Файл загружен"';
  Application.ProcessMessages;
end;
 
procedure TForm1.Button3Click(Sender: TObject); // Запустить 
 
var            k : word;
    FileName : String; // Имя воспроизводимого файла
 
begin
  Btn_End:=False;    // Убираем завершение 
  Btn_Pauza:=False;  // Убираем паузу
     for k:=Start to num-1 do   // Циклимся со значения Start до num-1
       begin
          if Btn_End then     // Завершение урока
              begin
                ...
              end;
          if Btn_Pauza then    // Приостановка цикла
                begin
                    ...
                end;   
          Form1.Label1.Caption:= tRu[k]; // выводим текст
          Application.ProcessMessages;
 
          FileName:=DirFile+zRu[k];  // Получаем полное имя файла
          PlaySound(Pchar(FileName),0,snd_sync);    // воспроизводим звук
          Application.ProcessMessages;
          Sleep(2000);
       end; // for k:=Start to num   
end; // procedure
 
procedure TForm1.Button4Click(Sender: TObject); // Приостановить цикл
begin
  Btn_Pauza := True;
end;
 
procedure TForm1.Button5Click(Sender: TObject); // Завершить цикл
begin
  Btn_End := True; 
end;
 
end.