Создание ini файла

unit MainForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, MPlayer, ComCtrls, Menus, jpeg, Unit2, Unit3, ShellApi,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,  IniFiles,
  IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP;
 
type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    ListBox1: TListBox;
    Timer1: TTimer;
    Label1: TLabel;
    Image1: TImage;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Panel1: TPanel;
    TrackBar1: TTrackBar;
    MediaPlayer1: TMediaPlayer;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    Jimp1: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    Image13: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Label3: TLabel;
    Label4: TLabel;
    JimpStore1: TMenuItem;
    Image18: TImage;
    PopupMenu3: TPopupMenu;
    N5: TMenuItem;
    TrayIcon1: TTrayIcon;
    N12: TMenuItem;
    PopupMenu2: TPopupMenu;
    PopupMenu4: TPopupMenu;
    N13: TMenuItem;
    N15: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N17: TMenuItem;
    N27: TMenuItem;
    Image19: TImage;
    N28: TMenuItem;
    Label5: TLabel;
    Label6: TLabel;
    N30: TMenuItem;
    MediaPlayer2: TMediaPlayer;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    MediaPlayer3: TMediaPlayer;
    N29: TMenuItem;
    N31: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    CheckBox1: TCheckBox;
 
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N2Click(Sender: TObject);
 
 
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Jimp1Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image3MouseLeave(Sender: TObject);
    procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image4MouseLeave(Sender: TObject);
    procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image7MouseLeave(Sender: TObject);
    procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image6MouseLeave(Sender: TObject);
    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image5MouseLeave(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure JimpStore1Click(Sender: TObject);
    procedure Image18Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure TrayIcon1Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure Image19Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure MediaPlayer2Notify(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
 
 
  private
    { Private declarations }
    // эти объявления вставлены сюда вручную
    procedure Play; // воспроизведение
    procedure PlayList(Path: string); // формирует список MP3 файлов
 
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses MMSYSTEM, FileCtrl;
 
{$R *.dfm}
var
  SoundPath: string[255];  // каталог, в кот. находятся mp3-файлы
  min,sec: integer; // время воспроизведения
 
  volume: LongWord; // громкость воспроизведения:
                    //   старшее слово - правый канал;
                    //    младшее слово - левый.
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   PlayList(''); // сформировать список mp3-файлов
   ListBox1.ItemIndex := 0;
   Label1.Caption:=ListBox1.Items[ListBox1.itemIndex];
 
   // установить уровень громкости
   TrackBar1.Position := 7;
 
   // старшее слово переменной volume - правый канал,
   // младшее - левый
   volume := (TrackBar1.Position - TrackBar1.Max+1)* 6500;
   volume := volume +   (volume shl 16);
   waveOutSetVolume(WAVE_MAPPER,volume); // уровень громкости
 
 
end;
 
 
procedure TForm1.PlayList(Path: string);
var
  SearchRec: TSearchRec;// структура SearchRec содержит информацию
                        // о файле, удовлетворяющем условию поиска
begin
  ListBox1.Clear;
  // сформировать список mp3 файлов
  if FindFirst(Path + '*.mp3', faAnyFile, SearchRec) =0 then
     begin
          // в каталоге есть файл с расширением mp3
          // добавим имя этого файла в список
          ListBox1.Items.Add(SearchRec.Name);
          // есть еще mp3-файлы ?
          while (FindNext(SearchRec) = 0) do
              ListBox1.Items.Add(SearchRec.Name);
     end;
   ListBox1.ItemIndex := 0;
end;
 
// щелчок на названии произведения
procedure TForm1.ListBox1Click(Sender: TObject);
begin
 if SpeedButton2.Tag = 0 then
     // вывести в поле метки Label1 имя выбранного файла
     Label1.Caption:=ListBox1.Items[ListBox1.itemIndex]
 else
     Form1.Play; // активизировать процесс воспроизведения
end;
 
procedure TForm1.MediaPlayer2Notify(Sender: TObject);
begin
 with MediaPlayer2 do
   if NotifyValue = nvSuccessful then
   begin
     MediaPlayer1.Notify := True;
     MediaPlayer1.Play;
   end;
end;
 
// щелчок на кнопке Воспроизведение
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  // свойство Tag хранит информацию о состоянии
  // плеера: 0 - стоп; 1 - воспроизведение
  if SpeedButton2.Tag = 0 then
 
    begin  // начать воспроизведение
      Form1.Play;
      ;SpeedButton2.Glyph := SpeedButton6.Glyph;
      ;SPeedButton2.Hint := 'Stop';
      ;Timer1.Enabled := true;
    end
  else
    // если кнопка Воспроизведение нажата,
    // то повторное нажатие останавливает
    // воспроизведение
    begin
       SpeedButton2.Tag := 0;
       MediaPlayer1.Pause;
      SpeedButton2.Glyph := SpeedButton5.Glyph;
      Timer1.Enabled := False;
      SPeedButton2.Hint := 'Play';
 
    end;
end;
 
// кнопка "Предыдущий трек"
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if ListBox1.ItemIndex > 0 then
        ListBox1.ItemIndex := ListBox1.ItemIndex - 1;
  if SpeedButton2.Tag = 1 then
      Play;
end;
 
// кнопка "Следующий трек"
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  if ListBox1.ItemIndex < ListBox1.Count then
        ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
  if SpeedButton2.Tag = 1 then
  Play;
end;
 
// пользователь изменил положение
// регулятора громкости
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  volume := 6500* (TrackBar1.Max - TrackBar1.Position);
  volume := volume +   (volume shl 16);
  waveOutSetVolume(WAVE_MAPPER,volume);
end;
 
procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
   TrayIcon1.Visible := False;
  Application.MainForm.Show;
end;
 
// воспроизвести композицию,
// название которой выделено
// в списке ListBox1
procedure TForm1.Play;
begin
  Timer1.Enabled := False;
  Label1.Caption:=ListBox1.Items[ListBox1.itemIndex];
  MediaPlayer1.FileName := SoundPath + ListBox1.Items[ListBox1.itemIndex];
 
  try
   Mediaplayer1.Open;
  except
    on EMCIDeviceError do
      begin
        ShowMessage('Ошибка обращения к файлу '+
                     ListBox1.Items[ListBox1.itemIndex]);
        exit;
      end;
  end;
 
  MediaPlayer1.Play;
  min :=0;
  sec :=0;
  Timer1.Enabled := True;
  SpeedButton2.Hint := 'Stop';
  SpeedButton2.Tag := 1;
end;
 
// сигнал от таймера
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // изменить счетчик времени
  if sec < 59
    then inc(sec)
    else begin
      sec :=0;
      inc(min);
    end;
 
  // вывести время воспроизведения
 
 
 
  // если воспроизведение текущей композиции
  // не завершено
  if MediaPlayer1.Position < MediaPlayer1.Length
    then exit;
 
  // воспроизведение текущей композиции
  // закончено
  Timer1.Enabled := False; // остановить таймер
  MediaPlayer1.Stop;       // остановить плеер
 
  if ListBox1.ItemIndex < ListBox1.Count // список не исчерпан
  then begin
        ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
        Play;  // активизировать воспроизведение mp3-файла
       end
end;
 
// Щелчок на кнопке "Папка"
// Выбрать папку, в которой находятся MP3 файлы
procedure TForm1.SpeedButton4Click(Sender: TObject);
var
  Root: string;      // корневой каталог
  pwRoot : PWideChar;
  Dir: string;
begin
  Root := ''; // корневой каталог - папка Рабочий стол
  GetMem(pwRoot, (Length(Root)+1) * 2);
  pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);
  if not SelectDirectory('Выберите папку, в которой находятся mp3-файлы, и нажмите "ОК"', pwRoot, Dir)
     then Dir :=''
     else Dir := Dir+'\';
 
  // каталог, в котором находятся MP3 файлы выбран
  SoundPath := Dir;
  PlayList(SoundPath);
end;
 
// нажатие кнопки мыши в окне программы
procedure TForm1.Image18Click(Sender: TObject);
begin
  ShellExecute (Form1.Handle, nil, 'http://jimp.prostoprint.com/', nil, nil, SW_RESTORE);
end;
 
procedure TForm1.Image19Click(Sender: TObject);
begin
 TrayIcon1.Visible := True;
  Application.MainForm.Hide;
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // заголовка у окна нет
  // обманим Windows. Пусть OC думает, что кнопка
  // нажата и удерживается в заголовке окна. В этом случае пользователь
  // может перемещать окно обычным образом.
  ReleaseCapture;
  SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)
end;
 
procedure TForm1.Image2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Image3Click(Sender: TObject);
begin
  if ListBox1.ItemIndex > 0 then
        ListBox1.ItemIndex := ListBox1.ItemIndex - 1;
  if SpeedButton2.Tag = 1 then
      Play;
end;
 
procedure TForm1.Image3MouseLeave(Sender: TObject);
begin
Image3.Picture := Image13.Picture;
end;
 
procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image3.Picture := Image8.Picture;
end;
 
procedure TForm1.Image4Click(Sender: TObject);
   begin
MediaPlayer1.Pause;
 
    end;
 
 
 
procedure TForm1.Image4MouseLeave(Sender: TObject);
begin
 Image4.Picture := Image14.Picture;
end;
 
procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image4.Picture := Image10.Picture;
end;
 
procedure TForm1.Image5Click(Sender: TObject);
begin
     if ListBox1.ItemIndex < ListBox1.Count then
        ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
  if SpeedButton2.Tag = 1 then
  Play;
end;
 
procedure TForm1.Image5MouseLeave(Sender: TObject);
begin
  Image5.Picture := Image17.Picture;
end;
 
procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image5.Picture := Image12.Picture;
end;
 
procedure TForm1.Image6Click(Sender: TObject);
begin
  SpeedButton2.Tag := 0;
       MediaPlayer1.Stop;
      SpeedButton2.Glyph := SpeedButton5.Glyph;
      Timer1.Enabled := False;
      SPeedButton2.Hint := 'Play';
 
end;
 
procedure TForm1.Image6MouseLeave(Sender: TObject);
begin
 Image6.Picture := Image16.Picture;
end;
 
procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image6.Picture := Image9.Picture;
end;
 
procedure TForm1.Image7Click(Sender: TObject);
begin
 // свойство Tag хранит информацию о состоянии
  // плеера: 0 - стоп; 1 - воспроизведение
  if SpeedButton2.Tag = 0 then
 
    begin  // начать воспроизведение
      Form1.Play;
      ;SpeedButton2.Glyph := SpeedButton6.Glyph;
      ;SPeedButton2.Hint := 'Stop';
      ;Timer1.Enabled := true;
    end
  else
    // если кнопка Воспроизведение нажата,
    // то повторное нажатие останавливает
    // воспроизведение
    begin
       SpeedButton2.Tag := 0;
       MediaPlayer1.Pause;
      SpeedButton2.Glyph := SpeedButton5.Glyph;
      Timer1.Enabled := False;
      SPeedButton2.Hint := 'Play';
 
    end;
end;
 
procedure TForm1.Image7MouseLeave(Sender: TObject);
begin
Image7.Picture := Image15.Picture;
end;
 
procedure TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image7.Picture := Image11.Picture;
end;
 
procedure TForm1.Jimp1Click(Sender: TObject);
begin
Form1.Close;
end;
 
procedure TForm1.JimpStore1Click(Sender: TObject);
begin
  ShellExecute (Form1.Handle, nil, 'http://jimp.prostoprint.com/', nil, nil, SW_RESTORE);
end;
 
procedure TForm1.N10Click(Sender: TObject);
begin
     if ListBox1.ItemIndex < ListBox1.Count then
        ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
  if SpeedButton2.Tag = 1 then
  Play;
end;
 
procedure TForm1.N11Click(Sender: TObject);
begin
  if ListBox1.ItemIndex > 0 then
        ListBox1.ItemIndex := ListBox1.ItemIndex - 1;
  if SpeedButton2.Tag = 1 then
      Play;
end;
 
procedure TForm1.N12Click(Sender: TObject);
begin
  TrayIcon1.Visible := True;
  Application.MainForm.Hide;
end;
 
procedure TForm1.N13Click(Sender: TObject);
begin
    TrayIcon1.Visible := False;
  Application.MainForm.Show;
end;
 
procedure TForm1.N14Click(Sender: TObject);
begin
Form3.ShowModal;
end;
 
procedure TForm1.N16Click(Sender: TObject);
begin
Form2.ShowModal;
end;
 
procedure TForm1.N18Click(Sender: TObject);
begin
MediaPlayer1.Pause;
end;
 
procedure TForm1.N19Click(Sender: TObject);
begin
  SpeedButton2.Tag := 0;
       MediaPlayer1.Stop;
      SpeedButton2.Glyph := SpeedButton5.Glyph;
      Timer1.Enabled := False;
      SPeedButton2.Hint := 'Play';
 
end;
 
procedure TForm1.N20Click(Sender: TObject);
begin
    if ListBox1.ItemIndex < ListBox1.Count then
        ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
  if SpeedButton2.Tag = 1 then
  Play;
end;
 
procedure TForm1.N21Click(Sender: TObject);
begin
  if ListBox1.ItemIndex > 0 then
        ListBox1.ItemIndex := ListBox1.ItemIndex - 1;
  if SpeedButton2.Tag = 1 then
      Play;
end;
 
procedure TForm1.N23Click(Sender: TObject);
begin
Form3.ShowModal;
end;
 
procedure TForm1.N24Click(Sender: TObject);
begin
Form2.ShowModal;
end;
 
procedure TForm1.N26Click(Sender: TObject);
begin
Form1.Close;
end;
 
procedure TForm1.N27Click(Sender: TObject);
begin
// свойство Tag хранит информацию о состоянии
  // плеера: 0 - стоп; 1 - воспроизведение
  if SpeedButton2.Tag = 0 then
 
    begin  // начать воспроизведение
      Form1.Play;
      ;SpeedButton2.Glyph := SpeedButton6.Glyph;
      ;SPeedButton2.Hint := 'Stop';
      ;Timer1.Enabled := true;
    end
  else
    // если кнопка Воспроизведение нажата,
    // то повторное нажатие останавливает
    // воспроизведение
    begin
       SpeedButton2.Tag := 0;
       MediaPlayer1.Pause;
      SpeedButton2.Glyph := SpeedButton5.Glyph;
      Timer1.Enabled := False;
      SPeedButton2.Hint := 'Play';
 
    end;
end;
 
procedure TForm1.N28Click(Sender: TObject);
begin
ListBox1.Items.Clear();
Label1.Caption := Label5.Caption;
  SpeedButton2.Tag := 0;
       MediaPlayer1.Stop;
      SpeedButton2.Glyph := SpeedButton5.Glyph;
      Timer1.Enabled := False;
      SPeedButton2.Hint := 'Play';
 
end;
 
 
procedure TForm1.N29Click(Sender: TObject);
begin
  MediaPlayer1.Notify := MediaPlayer2.Notify;
     MediaPlayer2Notify(nil);
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
  //Form1.WindowState := wsMinimized;
end;
 
procedure TForm1.N31Click(Sender: TObject);
begin
   ShellExecute (Form1.Handle, nil, 'http://jimp.at.ua/index/help/0-5', nil, nil, SW_RESTORE);
end;
 
procedure TForm1.N32Click(Sender: TObject);
begin
TrackBar1.Position := TrackBar1.Position - 3;
end;
 
procedure TForm1.N33Click(Sender: TObject);
begin
TrackBar1.Position := TrackBar1.Position + 3;
end;
 
procedure TForm1.N35Click(Sender: TObject);
begin
   ShellExecute (Form1.Handle, nil, 'http://jimp.at.ua/index/obratnaja_svjaz/0-6', nil, nil, SW_RESTORE);
end;
 
procedure TForm1.N36Click(Sender: TObject);
begin
 ShellExecute (Form1.Handle, nil, 'http://jimp.at.ua/gb/', nil, nil, SW_RESTORE);
end;
 
procedure TForm1.N37Click(Sender: TObject);
begin
with OpenDialog1 do
if execute then
begin
  Memo1.Lines.LoadFromFile(filename);
  HistoryList.Add(Filename);
  Filename := ' ';
  ListBox1.Items :=  Memo1.Lines;
end;
end;
 
procedure TForm1.N38Click(Sender: TObject);
begin
  Memo1.Lines := ListBox1.Items;
  with SaveDialog1 do
  if execute then
  begin
    Memo1.Lines.SaveToFile(filename);
  end;
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
SpeedButton4.Click;
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
   SpeedButton4.Click;
end;
 
procedure TForm1.N7Click(Sender: TObject);
begin
  // свойство Tag хранит информацию о состоянии
  // плеера: 0 - стоп; 1 - воспроизведение
  if SpeedButton2.Tag = 0 then
 
    begin  // начать воспроизведение
      Form1.Play;
      ;SpeedButton2.Glyph := SpeedButton6.Glyph;
      ;SPeedButton2.Hint := 'Stop';
      ;Timer1.Enabled := true;
    end
  else
    // если кнопка Воспроизведение нажата,
    // то повторное нажатие останавливает
    // воспроизведение
    begin
       SpeedButton2.Tag := 0;
       MediaPlayer1.Pause;
      SpeedButton2.Glyph := SpeedButton5.Glyph;
      Timer1.Enabled := False;
      SPeedButton2.Hint := 'Play';
 
    end;
end;
 
procedure TForm1.N8Click(Sender: TObject);
begin
   MediaPlayer1.Pause;
end;
 procedure TForm1.N9Click(Sender: TObject);
begin
   SpeedButton2.Tag := 0;
       MediaPlayer1.Stop;
      SpeedButton2.Glyph := SpeedButton5.Glyph;
      Timer1.Enabled := False;
      SPeedButton2.Hint := 'Play';
 
end;
end.

var
  Form1: TForm1;
   inifile: tinifile;
 
implementation
 
uses MMSYSTEM, FileCtrl;
 
{$R *.dfm}
var
  SoundPath: string[255];  // каталог, в кот. находятся mp3-файлы
  min,sec: integer; // время воспроизведения
 
  volume: LongWord; // громкость воспроизведения:
                    //   старшее слово - правый канал;
                    //    младшее слово - левый.
 
 
procedure TForm1.FormCreate(Sender: TObject);
 var
 ini : string;
begin
   PlayList(''); // сформировать список mp3-файлов
   ListBox1.ItemIndex := 0;
   Label1.Caption:=ListBox1.Items[ListBox1.itemIndex];
 
   // установить уровень громкости
   TrackBar1.Position := 7;
 
   // старшее слово переменной volume - правый канал,
   // младшее - левый
   volume := (TrackBar1.Position - TrackBar1.Max+1)* 6500;
   volume := volume +   (volume shl 16);
   waveOutSetVolume(WAVE_MAPPER,volume); // уровень громкости
   inifile:=tinifile.create('jimp.ini');
 
   inifile.free;

tinifile.create('jimp.ini')
 inifile.writestring(one,Povtor,CheckBox1.Checked);

procedure TForm1.FormCreate(Sender: TObject);
begin
   one := 'Settings';
   Povtor := 'Povtor';
   tinifile.create(ExtractFilePath(Application.ExeName) + '/jimp.ini');
   inifile.readstring(one,Povtor,i);
   inifile.free;
   if i = 'True' then
   begin
    CheckBox1.Checked := true
   end;
    if i = 'False' then
   begin
    CheckBox1.Checked := false
   end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 
begin
  tinifile.create(ExtractFilePath(Application.ExeName) + '/jimp.ini');
  if CheckBox1.Checked = true  then
  begin
  i := 'True';
  end;
  if CheckBox1.Checked = false  then
  begin
  i := 'False';
  end;
  inifile.writestring(one,Povtor,i);
  inifile.free;
 
 
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   one := 'Settings';
   Povtor := 'Povtor';
   tinifile.create(ExtractFilePath(Application.ExeName) + '/jimp.ini');
   inifile.readstring(one,Povtor,i);
   inifile.free;
   if i = 'True' then
   begin
    CheckBox1.Checked := true
   end;
    if i = 'False' then
   begin
    CheckBox1.Checked := false
   end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 
begin
  tinifile.create(ExtractFilePath(Application.ExeName) + '/jimp.ini');
  if CheckBox1.Checked = true  then
  begin
  i := 'True';
  end;
  if CheckBox1.Checked = false  then
  begin
  i := 'False';
  end;
  inifile.writestring(one,Povtor,i);
  inifile.free;
 
 
end;