TXT文本如何删除行~帮小弟我看看吧

TXT文本怎么删除行~帮我看看吧
我的文本文档里有好多行,我要查找重复的记录然后将其删除.例如
aaa
bbb
ccc
aaa
bbb
下面是我写的文件,可是不能删除行,请大家帮我看看.谢谢!
var
    Lists:   TStrings;

begin
opendialog1.Execute;   if   opendialog1.FileName= ' '   then
exit;

Lists:=TStringList.Create;
Lists.LoadFromFile(opendialog1.FileName);
lists.Delete(1);

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
s: TStringList;
I: Integer;
begin
s := TStringList.Create;
....
s.Sort;
for i := s.Count - 1 downto 1 do
if s[i] = s[i - 1] then
s.Delete(i);
...
end;