Wörter zufällig wiedergeben

[Ric]

Morgen zusammen,

Ich arbeite derzeit an einem kleinen Programm.
Dieser beinhaltet 2 Edit, 2 Memo Felder und ein Button.
Es soll ein Satz zufällig wiedergeben, die anfangs und Endbuchstaben der Wörter sollen gleichbleiben.

Bsp.
Bitte Türe geschlossen lassen
Btite Trüe gelschsosen lssean

Ich bin soweit gekommen, das die Wörter jeweils in einer Zeile angezeigt werden.
Ich habs mit Random(list.Count); versucht, nur kommen die Buchstaben auch mal doppelt vor.
Die Anfangs und Endbuchstaben bleiben auch nicht bestehen. Ich bin sehr neu im Programmierwelt,
der folgende Code wird wohl falsch sein . Habt Ihr tipps wie ich mein Proplem lösen kann.
Falls mehr vom Quelltext erforderlich ist kann ichs noch posten.

Danke im Vorraus.

Delphi-Quellcode:

memo1.Text := list.text;

      for I := 0 to length(txt)-1 do
      begin
       Random(list.Count);
        edit2.Text := edit2.Text + list.Strings[Random(list.Count)];