Алгоритм перебора уже известных данных

  StringArray:TStringList;
  StringArray := TStringList.Create;
  StringArray.Delimiter :='-';
  StringArray.DelimitedText := SourceString;

  for i := 0 to StringArray.Count-1 do
    ResultString := ResultString+StringArray[i]+'-';
  ResultString:=  ResultString.Remove(Length(ResultString)-1);

AllStringSets: TStringList;
procedure ButtonClick(Sender: TObject);
var
  i:integer;
begin
  AllStringSets:=TStringList.Create;
  AllStringSets.Add('1111-2222-3333-4444-5555');
  i:=0;
  while i<=AllStringSets.Count-1 do
  begin
    GetStringValues(AllStringSets[i]);
    inc(i);
  end;
end;

procedure GetStringValues(aSourceString: string);
var
  StringArray: TStringList;
  i:integer;
begin
 
  StringArray := TStringList.Create;
  StringArray.Delimiter := '-';
  StringArray.DelimitedText := aSourceString;
 
  for i :=0  to StringArray.Count-1 do
    MixString(i, StringArray);
end;

procedure MixString(aStartIndex: integer; aStringSet: TStringList);
var
  i, j: integer;
  ResultString: string;
  TempString: string;
  TempStringList: TStringList;
begin
  TempStringList := TStringList.Create;
  for i := 0 to aStringSet.Count - 1 do
    TempStringList.Add(aStringSet[i]);
 
  for i := aStartIndex to TempStringList.Count - 2 do
  begin
    ResultString := '';
    TempString := TempStringList[i + 1];
    TempStringList[i + 1] := TempStringList[i];
    TempStringList[i] := TempString;
 
    for j := 0 to TempStringList.Count - 1 do
      ResultString := ResultString + TempStringList[j] + '-';
    ResultString := ResultString.Remove(Length(ResultString) - 1);
 
    if AllStringSets.IndexOf(ResultString)<0 then
    begin
      Memo.Lines.Add(ResultString);
      AllStringSets.Add(ResultString);
    end;
  end;
 
end;

  StringArray:TStringList;
  StringArray := TStringList.Create;//создаем экземпляр
  StringArray.Delimiter :='-';//назначаем разделительный символ
  StringArray.DelimitedText := SourceString;//назначаем строку для деления