Delphi. Перемешиваем строки. Опции

[NEFFboy]

есть текстый файл, который содержит текст, его нужно открыть, перемешать строки текста в нём в произвольном порядке и сохранить в другом файле.

кусок кода:

Код

begin
Edit1.Text; // сдесь исходный файл, в котором берём строки.
//тут нужен код который пермешивает строки.
Edit2.Text; // здесь сохраняем перемешанный текст.

[NEFFboy]

спасибо за помощь...
разобрался сам, сделал, то что мне нужно

var
   a:TStringList;
   i,first,last:integer;
   s:widestring;
begin
   randomize;
   a:=TStringList.Create;
   a.LoadFromFile(Edit1.Text);
   for i:=0 to a.Count-1 do
   begin
       first:=random(a.Count-1);
       last:=random(a.Count-1);
       s:=a.Strings[first];
       a.Strings[first]:=a.Strings[last];
       a.Strings[last]:=s;
   end;
   a.SaveToFile(Edit2.Text);
   a.Free;
end;