导入Excel有关问题

求助导入Excel问题。
SetLength(SaveSJH,1000); //定义水井数组的空间
  SetLength(SaveYJH,1000);
  SetLength(SavePFXS,1000);
  ListBox5.Clear;
  OpenDialog1 := TOpenDialog.Create(Self);
  OpenDialog1.DefaultExt := '*.xls';
  OpenDialog1.Filter := 'Excel Files (*.xls)|*.xls';
  if OpenDialog1.Execute then
  begin
  ExcelName := OpenDialog1.FileName;
  end
  else
  Exit;

  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.WorkBooks.Open(Excelname);
  ExcelApp.WorkSheets[1].Activate;
  Sheet:= ExcelApp.WorkSheets[1];

  ExcelCount := ExcelApp.WorkSheets[1].UsedRange.Rows.Count;
  for i := 0 to ExcelCount do
  begin
  SaveSJH[i] := Sheet.Cells[i+2,1].Value;
  SaveYJH[i] := Sheet.Cells[i+2,2].Value;
  SavePFXS[i]:= Sheet.Cells[i+2,3].Value;
  ListBox5.Items.Add(SaveSJH[i]);
  end;
 
  SaveSJH为数组
  求助，我要把SaveSJH中的数据添加到ListBox中，但是有重复数据的存在，该怎么去除重复呢？

 

[解决办法]
if lb1.Items.IndexOf(SaveSJH[i])<0 then lb1.Items.Add(SaveSJH[i]);