TXT文本怎么删除行~帮我看看吧

Question

我的文本文档里有好多行,我要查找重复的记录然后将其删除.例如
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);

Answer 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;

Answer 2

aaaa 重复的没有删除掉s.Sort;是什么意思啊

Answer 3

[Error] main.pas(102): Undeclared identifier: 'Sort'
Lists.Sort;不能识别哦~~