Добавление mp3 файлов в FileListBox и ListBox c применением id тегов

String Dir;
TSearchRec sr;
 
if(SelectDirectory("Открыть папку","",Dir))
{
Dir = IncludeTrailingPathDelimiter(Dir);
int ok = FindFirst(Dir+"*.mp3", faAnyFile, sr);
while(ok == 0)
{
if((sr.Name != "")&&(sr.Name != ".")&&(sr.Name != ".."))
{
if(sr.Attr != faDirectory)
 
Form2->Playlist->Items->Add(ChangeFileExt(ExtractFileName(sr.Name.c_str()),""));
 
}
ok = FindNext(sr);
}
FindClose(sr);
}
 
и вот это:
 
 
struct
{
  char ID[3];
  char Title[30];
  char Artist[30];
  char Album[30];
  char Year[4];
  char Comment[30];
  char Genre;
}TAG;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int Handle = FileOpen("D:\\1.mp3", fmOpenRead);
  if(Handle != -1)
    {
      if(FileSeek(Handle, -128, 2) != -1)
        if(FileRead(Handle, (void *)&TAG, 128) != -1)
          {
            Edit1->Text = AnsiString(TAG.Title);
            Edit2->Text = AnsiString(TAG.Artist);
            Edit3->Text = AnsiString(TAG.Album);
          }
      FileClose(Handle);
    }