Wörter zufällig wiedergeben

[Ric]

Hi und danke für deine antwort.
Ich kam leider nicht zum gewünschten Ergebnis, lag aber wohl an mir.

Problem:
Die Buchstaben werden nicht ganz zufällig wiedergegeben und mir fehlen immernoch
die Anfangs und Endbuchstaben.
Wie kann ich weiter vorgehen?

Bsp.
Bitte Türe geschlossen lassen = iit üü scshheles ases

Hier auch der ganze Quellcode:

Delphi-Quellcode:

procedure TForm1.btnmixClick(Sender: TObject);
var
  txt: String;
  txt1 : String;
  i: integer;
  list: TStringlist;
  list1: TStringlist;
  edit3 : Tedit;
  y: Integer;
begin

  list1 := TStringList.Create;

  list1.Text :=  StringReplace(edit1.text, ' ', #13#10, [rfReplaceAll]);

  memo2.Text := list1.Text;

  list := TStringlist.Create;

  for y:= 0 to list1.Count - 1 do
  begin




    txt := Copy(list1.Strings[y],2,Length(list1.Strings[y])-2);

    list.Clear;
    for i := 1 TO length(txt) DO
      begin
        list.Add(copy(txt,i,1));
      end;

      memo1.Text := list.text;
      txt1 := '';

      for I := 1 to Length (txt) do
      begin
        
        txt1 := txt1 + list.Strings[Random(list.Count)];
        end;

      
        edit2.Text := edit2.Text +' '+ txt1 ;
      end;

      end;
      end.