1:

'Einleitung','Startbemerkung', '235','Schlussbemerkung'					

1:
2:
3:
4:

Variable 1 = 'Einleitung'
Variable 2 = 'Startbemerkung'
Variable 3 = '235'
Variable 4 = 'Schlussbemerkung'					

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

procedure TForm1.Button1Click(Sender: TObject);
var Liste:tstringlist;
begin
Liste:=tstringlist.create;
Liste.CommaText:=edit1.text;
showmessage(Liste[0]);
showmessage(Liste[1]);
end;					

1:
2:
3:
4:
5:

s := 'Einleitung  /  Startbemerkung 1  /  235  /  Schlussbemerkung';
s := '#'+StringReplace(s,'  /  ','#/#',[rfReplaceAll])+'#';
List.Delimiter := '/';
List.QuoteChar := '#';
List.DelimitedText := s;					

1:
2:
3:

ID3    NTRCK      15TENC   @  Franz BeispielWXXX       www.keine-ahnung.deTCOP      2002TOPE      224TCOM      1111COMM          Nicht ganz typisch!TCON        (17)RockTYER      1975TALB   
   High VoltageTPE1      AC DCTIT2   
   Love Song					

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

function DelimiterToCommaText(Text: String; Del: String): String;
var Sl: TStringList;
begin
  Sl := TStringList.Create;
  try while Length(Trim(Text)) <> 0 do begin
      if Pos(Del, Text) = 0 then Text := Text + Del;
      Sl.Add(Trim(Copy(Text, 1, Pos(Del, Text) - 1)));
      Delete(Text, 1, Pos(Del, Text) + Length(Del) - 1);
    end;
    Result := Sl.CommaText;
  finally Sl.Free end;
end; {Popov}

procedure TForm1.Button1Click(Sender: TObject);
var
  Text, Del: String;
begin
  Text := '254#*-#24#*-#250#*-#138#*-#186#*-#162#*-#190#*-#128';
  Del := '#*-#';
  ListBox1.Items.CommaText := DelimitedToCommaText(Text, Del);;
end;