delphi中ListBox怎样防止重复添加？

procedure TForm1.Button4Click(Sender: TObject);
var
  I:Integer;
begin
   if OpenDialog1.Execute then
      for I := 0 to OpenDialog1.Files.Count - 1 do
        ListBox1.Items.Add(OpenDialog1.files[I]);
end;
这是我写的“添加”按钮，通过OpenDialog添加选中的文件。
问题是为什么可以重复添加呢？怎样避免？