MP3 плеер. Переключение треков по списку.

procedure TForm1.PlayaClick(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
   var mp3File: string;
begin
if button=btStop then 
begin
 if ListBox1.Items.Count=0 then exit;
  if ListBox1.ItemIndex+1=ListBox1.Items.count then  {проверяет, не заканчиваеться ли список}
  begin
  ListBox1.ItemIndex:=0-1;
  end;
  mp3File := Concat(StaticText1.Caption, ListBox1.Items.Strings[ListBox1.ItemIndex+1]);
  ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
 
  if not FileExists(mp3File) then begin
   ShowMessage('Ôàéë '+#13#10+ mp3File +#13#10+' íå ñóùåñòâóåò!');
   exit;
  end;
  FillID3TagInformation(mp3File, Title, Artist, Album);      {в оригинале отправляло теги файла  в едиты, но я отправляю их в лейблы}
  Progress.Max:=0;
  playa.Close;
  playa.FileName:=mp3File;
  playa.Open;
  Progress.Max := playa.Length;       {нужно для прогресс бара}
  end;
end;

Next: Tbutton;
List:Tlistbox;
Bass:Tbassplayer;
 
Procedure NextClick(..);
Var
Playing:integer;
begin
if 
if List.itemindex < 0 then exit;
if List.itemindex >= 0 then begin
Playing:=List.itemindex+1;
bass.open(list.items.strings[playing]);
bass.play;

TID3Rec = packed record
    Tag     : array[0..2] of Char;
    Title,
    Artist,
    Album   : array[0..29] of Char;
  end;

procedure ChangeID3Tag(NewID3: TID3Rec; mp3FileName: string);
var
  fMP3: file of Byte;
  OldID3 : TID3Rec;
begin
  try
    AssignFile(fMP3, mp3FileName);
    Reset(fMP3);
    try
      Seek(fMP3, FileSize(fMP3) - 128);
      BlockRead(fMP3, OldID3, SizeOf(OldID3));
      if OldID3.Tag = 'TAG' then
        { Replace old tag }
        Seek(fMP3, FileSize(fMP3) - 128)
      else
        { Append tag to file because it doesn't exist }
        Seek(fMP3, FileSize(fMP3));
      BlockWrite(fMP3, NewID3, SizeOf(NewID3));
    finally
    end;
  finally
    CloseFile(fMP3);
  end;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
var
  {fMP3: file of Byte;  } 
  OldID3 : TID3Rec;
  mp3FileName:string;
  fmp3: TFileStream;  // я решил воспользоваться потоками, но результат ето не изменило.
begin
for i:= 0 to length(Artist.Text) do NewID3.Artist[i]:=Artist.Text[i];   //здесь я заполняю новые теги, что бы потом отправить их вместо старых
for j:= 0 to length(Album.Text) do NewID3.Album[j]:=Album.Text[j];
for k:= 0 to length(Title.Text) do NewID3.Title[k]:=Title.Text[k];
label2.Caption:='p='+p+'Artist='+NewID3.Artist[1]+'r='+inttostr(r);
mp3FileName:=Concat(StaticText1.Caption, ListBox1.Items.Strings[ListBox1.ItemIndex]);
Label1.Caption:=mp3FileName;
try
 fmp3:=TFileStream.Create(mp3FileName, fmOpenReadWrite);
 try
  fmp3.position:=fmp3.size-128;
  fmp3.Read(OldID3,SizeOf(OldID3));
 
  if OldID3.Tag = 'TAG' then
   fmp3.position:=fmp3.size-128
  else fmp3.position:=fmp3.size;
  fmp3.Write(NewID3,SizeOf(OldID3));
  finally
  end;
  finally
  fmp3.Free;
 
{try                         //Все через АссигнФайл
    AssignFile(fMP3, mp3FileName);
    Reset(fMP3);
    try
      Seek(fMP3, FileSize(fMP3) - 128);
      BlockRead(fMP3, OldID3, SizeOf(OldID3));
      if OldID3.Tag = 'TAG' then
 
        Seek(fMP3, FileSize(fMP3) - 128)
      else
 
        Seek(fMP3, FileSize(fMP3));
      BlockWrite(fMP3, NewID3, SizeOf(NewID3));
    finally
    end;
  finally
    CloseFile(fMP3);
  end; }
 end;
end;

uses
[COLOR="Red"]ID3V2[/COLOR];

var
  Tags:TID3V2;

procedure TForm1.FormCreate(Sender: TObject);
begin
Tags:=TID3V2.Create;
end;

 public
    { Public declarations }
    function Tags_for_File(filename:string):string;

function TForm1.Tags_for_File(filename: string): string;
begin
if fileexists(filename) then begin Tags.ReadFromFile(Filename);
           if  (Tags.Artist='') and (Tags.Album='') then
           result:= '['+extractfilename(changefileext(filename, ''))+']:|:[Unknown Album' +']';
           if  (Tags.Artist<>'') and (Tags.Album='') then
           result:= '['+Tags.Artist + ']:|:[Unknown Album]';
           if  (Tags.Artist='') and (Tags.Album<>'') then
           result:= '['+extractfilename(changefileext(filename, ''))+ ']:|:[' + Tags.Album+']';
           if  (Tags.Artist<>'') and (Tags.Album<>'') then
           result:= '['+Tags.Artist +']:|:['+Tags.Album+']';
 
 
end;

 public
    { Public declarations }
    procedure PaintImage(List: TListBox; Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

procedure TForm1.PaintImage(List: TListBox;
  Control: TWinControl; Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
  const W = 5;
      H = 14;
var BMPRect: TRect;
begin
with List.canvas do
begin
if (State = [odFocused, odSelected]) or (State = [odSelected]) then
begin
    FillRect(Rect);
    BagsList.Canvas.Draw(0, Rect.Top, Image1.Picture.Graphic);
    BMPRect := Bounds(Rect.Left, Rect.Top, W, H);
Font.Color := clBlue;
Font.Size := 9;
Brush.Style := bsClear;
SetBkMode(Handle, TRANSPARENT);
TextOut(Rect.Left + W + 2, Rect.Top, IntToStr(Index + 1) + '. ' +  Tags_for_File(List.Items[index]));
end
else if PlayedItem = Index then //IDPlay 
begin
    FillRect(Rect);
    BagsList.Canvas.Draw(0, Rect.Top, Image1.Picture.Graphic);
    BMPRect := Bounds(Rect.Left, Rect.Top, W, H);
Font.Color := clYellow;
Font.Size := 9;
Brush.Style := bsClear;
Pen.Color := $001A1A1A;
SetBkMode(list.Handle, TRANSPARENT);
Rectangle(Rect);
TextOut(Rect.Left + W + 2, Rect.Top, IntToStr(Index + 1) + '. '+Tags_for_File(List.Items[index]));
end
else
begin
    FillRect(Rect);
    BagsList.Canvas.Draw(0, Rect.Top, Image1.Picture.Graphic);
    BMPRect := Bounds(Rect.Left, Rect.Top, W, H);
Font.Color := clGray;
Brush.Style := bsClear;
Font.Size := 9;
SetBkMode(list.Handle, TRANSPARENT);
TextOut(Rect.Left + W + 2, Rect.Top, IntToStr(Index + 1) + '. '+Tags_for_File(List.Items[index]));
end;
end;

procedure TForm1.Listbox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
PaintImage(Listbox1,Control,Index,Rect,State);
end;