1:

Interpret := Copy(Dateiname, 0, Pos('-')-1);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function getinterpret(pfad:string):string;
begin
  result:=copy(pfad,0, pos('-',pfad) -1);
  if result = '' then result := pfad else result:=trim(result);
end;

function getalbum(pfad:string):string;
var s: string;
begin
   s:=copy(pfad,pos('-',pfad) + 1, length(pfad));
   result:=trim(s);
end;					

1:

interpret := getinterpret( extractFileName ( myMp3File ) );					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TMain_Form.Timer1Timer(Sender: TObject);
var
 interpret : String;
 Mp3File : integer;
 Mp3File2 : String;
 begin
LB_Dateien.ItemIndex:=LB_Dateien.ItemIndex+1;
Mp3File:=LB_Dateien.ItemIndex;
Mp3File2 := IntToStr(Mp3File);
interpret := getinterpret( extractFileName (Mp3File2)  );
Label1.Caption := Interpret;
end;					

1:
2:
3:
4:
5:

var index: integer;
...
index:=LB_Dateien.ItemIndex;
Mp3File := LB_Dateien.Items[index];
interpret := getinterpret(  Mp3File  );					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TMain_Form.LB_DateienDblClick(Sender: TObject);
var
SelectedFile : string;
FName :        string;
begin
SelectedFile := LB_Dateien.Items.Strings[LB_Dateien.ItemIndex];
Form_EditFile.Show;
FName := ExtractFileName( SelectedFile );
Form_EditFile.Edit_File.Text :=FName;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TMain_Form.B_SearchClick(Sender: TObject);
var
    unsortDir : String;
begin
LB_Dateien.Clear;
unsortDir := Edit_Unsortiert.Text;

if CB_Subfolders.Checked then
FindFiles (unsortDir, '*.mp3', True, LB_Dateien.Items)
else
FindFiles (unsortDir, '*.mp3', False, LB_Dateien.Items);

Label_Dateien_Gesamt.Caption:=Inttostr(LB_Dateien.Items.Count) + ' Dateien gefunden.';

B_Start.Enabled := True;
end					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure TMain_Form.B_StartClick(Sender: TObject);
var
 interpret : String;
 Mp3File : String;
 index : integer;
 sortDir : String;
 FName : String;
 ZuKopierendeD : String;

 begin
sortDir := Edit_Sortiert.Text+'\';
  repeat
  LB_Dateien.ItemIndex:=LB_Dateien.ItemIndex+1;
  index:=LB_Dateien.ItemIndex;
  Mp3File := LB_Dateien.Items[index];

  FName := ExtractFileName( Mp3File );
  interpret := getinterpret( extractFileName ( Mp3File ) )+'\';

if DirectoryExists(sortDir+interpret) then
  else
   ForceDirectories (sortDir+interpret);

  CopyFile (PAnsiChar(Mp3File), PAnsiChar(sortDir+interpret+FName), True);

  ZuKopierendeD := IntToStr(LB_Dateien.Items.Count);
  if LB_Dateien.Items.Count  > 0 then
  StatusBar.Panels[1].Text := ('Noch ' + ZuKopierendeD + ' Dateien')
 else
  StatusBar.Panels[1].Text := 'Fertig';  

  if LB_Dateien.Items.Count  >0 then
  else
  Label_Dateien_Gesamt.Caption := '. : F E R T I G : .';


 //ShowMessage (interpret);
  LB_Dateien.DeleteSelected;
  until LB_Dateien.Items.Count = 0;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TMain_Form.LB_DateienDblClick(Sender: TObject);
var
SelectedFile : string;
FName :        string;
begin
SelectedFile := LB_Dateien.Items.Strings[LB_Dateien.ItemIndex];
Form_EditFile.Show;
FName := ExtractFileName( SelectedFile );
Form_EditFile.Edit_File.Text :=FName;
Form_EditFile.filename := selectedFile;
end;

procedure TMain_Form.Edit_SortiertChange(Sender: TObject);
begin
  if directoryexists(Edit_Unsortiert.text) and directoryexists(Edit_sortiert.text)
  then B_Search.Enabled := true
  else B_Search.Enabled := false
end;

procedure TMain_Form.Edit_UnsortiertChange(Sender: TObject);
begin
  if directoryexists(Edit_Unsortiert.text) and directoryexists(Edit_sortiert.text)
  then B_Search.Enabled := true
  else B_Search.Enabled := false
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

type
  TForm_EditFile = class(TForm)
    Edit_File: TEdit;
    B_Close: TButton;
    B_Save: TButton;
    procedure B_CloseClick(Sender: TObject);
    procedure B_SaveClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    filename: string;
    { Public-Deklarationen }
  end;

var
  Form_EditFile: TForm_EditFile;
implementation

uses Main_Unit;

{$R *.dfm}

procedure TForm_EditFile.B_CloseClick(Sender: TObject);
begin
Close;
end;

procedure TForm_EditFile.B_SaveClick(Sender: TObject);
var f:file; s: string;
begin
  s:= extractfilepath ( filename ) + Edit_file.text;
  assignfile(f,filename);
  rename(f, s );
  Main_Form.LB_Dateien.Items.Strings[Main_Form.LB_Dateien.ItemIndex] := s;
  close;
end;