procedure RELineSpace(REhwnd: THandle; LineSpace: Byte);
var
PF: PARAFORMAT2; //если будет ругаться "Undeclared identifier..." - добавьте в Uses модуль "RichEdit"
begin
ZeroMemory(@PF, SizeOf(PF));
PF.cbSize:=SizeOf(PARAFORMAT2);
PF.dwMask:=PFM_LINESPACING;
PF.bLineSpacingRule:=LineSpace;

SendMessage(REhwnd, EM_SETSEL, 0, -1);
SendMessage(REhwnd, EM_SETPARAFORMAT, 0, LPARAM(@PF));
SendMessage(REhwnd, EM_SETSEL, 0, 0);
end;


...
RichEdit1.Lines.LoadFromFile(fileName);
//вставляете эту процедуру после открытия файла
RELineSpace(RichEdit1.Handle, 1); // где "1" это будет величина интервала (указываются только целые числа)
...

//Допустим у вас три процедуры:

procedure TForm3.Button1Click(Sender: TObject);
begin
//"Возврат в оглавление"
end;


procedure TForm3.Button2Click(Sender: TObject);
begin
//"Открыть текст Главы.."
end;


procedure TForm3.Button3Click(Sender: TObject);
begin
//"Установить плеер"
end;

...

//эта процедура, предположем, открывает новую форму
procedure TForm1.Button0Click(Sender: TObject);
begin
Form3.Button2.Click; //открыли текст главы
Form3.Button3.Click; //открыли плеер

Form3.Show; //открыли саму форму
//кстати, а не лучше ли будет "Form3.ShowModal"?
end;

  //переход из оглавл. к форме главы 1 (кнопка Глава1)
procedure TForm1.Button2Click(Sender: TObject);
begin
    //операция с третьей формой
Form3.Show; //открывается форма для Главы 1 и т.д.
end;

procedure TForm1.RichEdit1Change(Sender: TObject); // <- автоматически вставится
begin // <- автоматически вставится
RichEdit1.Clear; // <- сюда вписываем сами
end; // <- автоматически вставится

procedure TForm3.Button2Click(Sender: TObject); //и т.д. до Form16
var
fileName:String;
begin

FileName:= ExtractFilePath(Application.ExeName)+'GLVZ\Глава1.rtf';//и т.д. до Гл.12
RichEdit1.Lines.LoadFromFile(fileName);
end;
end.

procedure TForm3.Button3Click(Sender: TObject);
var
Otkr:TFileStream;
begin
if OpenDialog1.Execute
then
Otkr:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
RichEdit1.Lines.LoadFromStream(Otkr);
FreeAndNil(Otkr);
RichEdit1.ReadOnly:=true;
end;

procedure TForm3.Button4Click(Sender: TObject);
var
fileName:String;
begin

FileName:= ExtractFilePath(Application.ExeName)+'GLVZ\Глава1.rtf';
RichEdit1.Lines.LoadFromFile(fileName);
end;
end.

OpenAudioPlayer('Zvuk\Sound1.wav', 'Sound1', True);

Прогон показал, что у плеера есть заковырка. Если на Form3 сначала установить плеер, а затем открыть текст, то всё работает. Но перегрузив проект и сначала открыть текст, а потом нажать "Установить плеер", то посередине экрана появляется окно: Ошибка: Системе не удаётся найти указанный путь ОК.

OpenAudioPlayer('C:\textbook\Глава 1.wav', 'Глава 1', False);

then
Otkr:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
RichEdit1.Lines.LoadFromStream(Otkr);
FreeAndNil(Otkr);
RichEdit1.ReadOnly:=true;
RichEdit1.Clear;  <- вот сюда
end;
end.

Otkr:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
RichEdit1.Lines.LoadFromStream(Otkr);
FreeAndNil(Otkr);
RichEdit1.ReadOnly:=true;
end;
end.

procedure TForm3.Button5Click(Sender: TObject);
begin
//Операция с первой формой
Form1.Show;
end;

//Операция с первой формой
Form1.Show;
Form3.Close;
end;

OpenAudioPlayer('C:\textbook\Глава 1.wav', 'Глава 1', False);

//вот так будет в правом верхнем углу
OpenAudioPlayer('C:\textbook\Глава 1.wav', 'Глава 1', True);
//а так посередине (и пока окно плеера не закроется, выполнение кода не продолжется)

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AudioPlayer, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenAudioPlayer=('C:\textbook\Глава 1.wav', 'Глава 1', False);
end;

end.

unit Unit3;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  AudioPlayer, Dialogs, StdCtrls, ExtCtrls, ComCtrls, XPMan, ActiveX,
  DirectShow9;
type
  TForm3 = class(TForm);
OpenAudioPlayer=('C:\textbook\Zvuk\Глава1.wav','Глава 1 False);
                                              ^вот здесь курсор
//а надо вот так:
OpenAudioPlayer=('C:\textbook\Zvuk\Глава1.wav','Глава 1', False)
end;
end.

unit Unit3;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  AudioPlayer, Dialogs, StdCtrls, ExtCtrls, ComCtrls, XPMan, ActiveX,
  DirectShow9;
type
  TForm3 = class(TForm);
OpenAudioPlayer=('C:\textbook\Zvuk\Глава1.wav','Глава 1 False);
                                              ^вот здесь курсор
end;
end.

OpenAudioPlayer('C:\textbook\Zvuk\Глава1.wav', 'Глава I', False);

unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, XPMan, ActiveX, AudioPlayer,
  DirectShow9;
type
  TForm3 = class(TForm);
implementation
{$R *.dfm}
procedure OpenAudioPlayer(Sender: TObject);
    <- сюда begin
end;
end.

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  ...
  AudioPlayer in 'AudioPlayer.pas';{<- вот сюда}

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  ...
  Application.CreateForm(TFormAudio, FormAudio);{<- и вот сюда}
  Application.Run;
end.

if GraphBuilder.RenderFile(PWideChar(WideString(Path)), nil)<>S_OK then
begin
ShowMessage('Ошибка');
Exit;,
function GetAudioPos(out StrPos: string; out IntPos: integer):boolean;
var
CurrPos: Int64;
Value, H, M, S: integer;
begin
Result:=False;
StrPos:='';
IntPos:=0;,
procedure SetAudioPos(IntPos: Int64);
var
CurrPos: Int64;
begin
if MediaSeeking=nil then
Exit;, и
AudioStop(Str, Int);
Label1.Caption:=Str; //вот здесь обнудяется общее время
Label2.Caption:=Str;
SendMessage(TrackBar1.Handle, WM_USER+5, 1, Int);
end;

procedure SetAudioPos(IntPos: Int64);
var
CurrPos: Int64;
begin
if MediaSeeking=nil then
Exit;

//MediaControl.Run;
  except
ShowMessage('Ошибка');
  end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
PlayButton('C:\textbook\Zvuk\Глава1.wav');
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
PlayButton(GetCurrentDir+'\Zvuk\Глава1.wav');
end;

if GraphBuilder.RenderFile(PWideChar(WideString(Path)), nil)<>S_OK then
  begin
ShowMessage('Ошибка'); //ошибка открытия файла (возможно он не найден)
Exit;
  end;

if GraphBuilder.RenderFile(PWideChar(WideString(Path)), nil)<>S_OK then
  begin
ShowMessage(SysErrorMessage(GetLastError));
Exit;
  end;

GetCurrentDir+'\Zvuk\Глава1.wav' //после GetCurrentDir, незабываем добовлять '\'

procedure GetAudioCount(out StrCount: string; out IntCount: integer);
var
DurPos: Int64;
Value, H, M, S: integer;
begin
<<вот здесь>>StrCount:='';
IntCount:=0;

procedure AudioRun(Path: string; CHWND: HWND);

if GraphBuilder.RenderFile(PWideChar(WideString(Path)), nil)<>S_OK then
  begin
<<вот здесь>>ShowMessage('Ошибка'); //ошибка открытия файла (вожможно он не найден)
Exit;
  end;

procedure TForm3.Button1Click(Sender: TObject);
begin
PlayButton('Zvuk\Глава1.wav');
end;

  begin
ShowMessage('Ошибка');
Exit;
  end;

if ...=nil then
//или
if ...<>nil then

if GraphBuilder.RenderFile(PWideChar(WideString(Path)), nil)<>S_OK then
  begin
ShowMessage('Ошибка'); //ошибка открытия файла (возможно он не найден)
Exit;
  end;

if MediaControl<>nil then
MediaControl.Run;

procedure TForm3.Button1Click(Sender: TObject);
begin
>>вот сюда<< PlayButton('Zvuk\1.wav');
end;

MediaSeeking.GetDuration(DurPos);

procedure TForm1.Button1Click(Sender: TObject);
begin
>>вот сюда<< PlayButton('Zvuk\1.wav');
end;

//а используете так:
procedure TForm1.Button1Click(Sender: TObject);
begin
PlayButton('Zvuk\1.wav');
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
WinExec(PChar(ExtractFilePath(Application.ExeName)+
'primer1\Projecr1.exe'),0);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
WinExec(PChar(ExtractFilePath(Application.ExeName)+
'player\AIMP2.exe'),0);
end;

procedure GetAudioPos(out StrPos: string; out IntPos: integer);
procedure SetAudioPos(IntPos: Int64);
procedure TForm1.Button3Click(Sender: TObject);
procedure TForm1.Timer1Timer(Sender: TObject);
procedure TForm1.TrackBar1Change(Sender: TObject);

function GetAudioPos(out StrPos: string; out IntPos: integer): boolean;
var
CurrPos: Int64;
Value, H, M, S: integer;
begin
Result:=False;
StrPos:='';
IntPos:=0;

if MediaSeeking=nil then
Exit;

MediaSeeking.GetCurrentPosition(CurrPos);

Value:=Trunc(CurrPos/10000000);
H:=Value div 3600;
M:=(Value mod 3600) div 60;
S:=(Value mod 3600) mod 60;

StrPos:=Format('%2.2d:%2.2d:%2.2d', [H, M, S]);
IntPos:=Value;
Result:=True;
end;


procedure SetAudioPos(IntPos: Int64);
var
CurrPos: Int64;
begin
if MediaSeeking=nil then
Exit;

CurrPos:=IntPos*10000000;
MediaSeeking.SetPositions(CurrPos, AM_SEEKING_AbsolutePositioning, CurrPos, AM_SEEKING_NoPositioning);
end;


procedure TForm1.Button3Click(Sender: TObject);//стоп воспроизведения
var
Str: string;
Int: integer;
begin
AudioStop(Str, Int);

Label1.Caption:=Str; //вот здесь обнуляется общее время
Label2.Caption:=Str;
SendMessage(TrackBar1.Handle, WM_USER+5, 1, Int);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
Str: string;
Int: integer;
begin
if GetAudioPos(Str, Int) then
  begin
Label2.Caption:=Str;
SendMessage(TrackBar1.Handle, WM_USER+5, 1, Int);
  end;

SetAudioEvent;
end;


procedure TForm1.TrackBar1Change(Sender: TObject);
var
Str: string;
Int: integer;
begin
SetAudioPos(TrackBar1.Position);

if GetAudioPos(Str, Int) then
  begin
Label2.Caption:=Str;
SendMessage(TrackBar1.Handle, WM_USER+5, 1, Int);
  end;
end;

//открытие файла
procedure TForm1.Button1Click(Sender: TObject);
var
Str: string;
Int: integer;
begin
AudioRun(Edit1.Text, 0{Panel1.Handle}); //если вы захотите вопроизвести видео -
//вместо 0 укажите хэндл поверхности (например панели), куда будет выводиться
//картинка

//открытие файла
procedure TForm1.Button1Click(Sender: TObject);
var
Str: string;
Int: integer;
begin
AudioRun(Edit1.Text, 0{Panel1.Handle}); //если вы захотите вопроизвести видео -
//вместо 0 укажите хэндл поверхности (например панели), куда будет выводиться
//картинка

procedure TForm1.PlayButton(PathMusic: string); //указываем в параметре путь к файлу
var
Str: string;
Int: integer;
begin
AudioStop(Str, Int);

Label2.Caption:=Str;
SendMessage(TrackBar1.Handle, WM_USER+5, 1, Int);


AudioRun(PathMusic, 0);

GetAudioCount(Str, Int);
Label1.Caption:=Str;
TrackBar1.Max:=Int;

MediaControl.Run;
Timer1.Enabled:=True; //изначально Timer1.Enabled = False
end;


//а используете так:
procedure TForm1.Button1Click(Sender: TObject);
begin
PlayButton('Zvuk\1.wav');
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
PlayButton('Zvuk\2.wav');
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
PlayButton('Zvuk\3.wav');
end;

procedure AudioPause;
begin
MediaControl.Pause;
Timer1.Enabled:=False;
end;


procedure AudioStart;
begin
MediaControl.Run;
Timer1.Enabled:=True;
end;

//открытие файла
procedure TForm3.Button2Click(Sender: TObject);
var
Str: string;
Int: integer;
begin
AudioRun('Zvuk\*.wav', 0{Panel1.Handle}); //если вы захотите вопроизвести
//видео - вместо 0 укажите хэндл поверхности (например панели), куда будет
//выводиться картинка
GetAudioCount(Str, Int);
Label1.Caption:=Str;
TrackBar1.Max:=Int;
end;
//пауза - старт
procedure TForm3.Button4Click(Sender: TObject);
begin
AudioStartPause;
end;

rocedure TForm3.Button3Click(Sender: TObject);
var
Otkr:TFileStream;
begin
if OpenDialog1.Execute
then
Otkr:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
RichEdit1.Lines.LoadFromStream(Otkr);
FreeAndNil(Otkr);
RichEdit1.ReadOnly:=true;
end;

begin
if GraphBuilder<>nil then
Exit;
CoCreateInstance(CLSID_FilterGraph, nil, CLSTX_INPROC_SERVER, IID_IGraphBuilder,
GraphBuilder);
try
if not Assigned(GraphBuilder) then
Exit;
GraphBuilder.RenderFile(PWideChar(WideString(Path)), nil);
if GraphBuilder.QueryInterface(IID_IMediaControl, MediaControl)<>S_OK then
Exit;

procedure TForm3.Button3Click(Sender: TObject);
var
Otkr:TFileStream;
begin
if OpenDialog1.Execute
then
Otkr:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
RichEdit1.Lines.LoadFromStream(Otkr);
FreeAndNil(Otkr);
RichEdit1.ReadOnly:=true; //чтобы не было соблазна редактировать