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:

procedure TForm1.Button2Click(Sender: TObject);
var I,A:Integer;
    UListe,EListe:TStrings;
begin
  Randomize;
  If Opendialog1.Execute then
  begin
    UListe.LoadFromFile(Opendialog1.Filename);
    EListe.Clear;
    For I:=0 to UListe.Count do
    begin
      if UListe.Count <>0 then
      begin
        A:=Random(UListe.Count);
        EListe.Add(UListe[A]);
        UListe.Delete(A);
      end;
    end;
    if Savedialog1.Execute then
    begin
      EListe.SaveToFile(SaveDialog1.Filename+'.txt');
      ShowMessage('OK');
    end
    else
    ShowMessage('Datei konnte nicht gespeichert werden');
  end
  else ShowMessage('Datei konnte nicht geladen werden');
end;					

1:

UListe := TStringList.Create;					

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

  sl:=TStringList.Create;
  try
    sl.Add('Test');
    Memo1.Lines.Assign(sl);
  finally
    sl.Free;
  end; // try