var
sl: TStringList;
i, j: integer;
begin
if OpenDialog1.Execute then begin
sl := TStringList.Create;
Randomize;
try
sl.LoadFromFile(OpenDialog1.FileName);
for i := 0 to sl.Count - 1 do begin
j := Random(sl.Count);
if i <> j then sl.Exchange(i,j);
end;
sl.SaveToFile('Result.txt');
finally
FreeAndNil(sl);
end;
end;
end;