doppelte Einträge verhindern beim öffnen mit OpenDialog

[newuser01]

Hallo

Ich möchte gerne verhindern das wenn ich mit Opendialog Dateien öffne und in der ListBox eintragen lasse diese doppelt erscheinen

folgendes hab ich bereits versucht finde aber den Fehler nicht

Delphi-Quellcode:

var i,j,k: Integer;
slTmp:TStringList;
begin

slTmp := TStringList.Create;
slTmp.Clear;

try
  if OpenDialog2.Execute then
  begin

   for i := 0 to  OpenDialog2.Files.Count - 1 do
   begin
    slTmp.Add(OpenDialog2.Files[i]);
   end;//for
   end;//if


        for j := 0 to slTmp.Count -1 do
        begin
          if slTmp.Strings[j] = lbAusgabe.Items.Strings[j] then
          begin
          slTmp.Delete(j);
          end;
        end;//for

        for k := 0 to slTmp.Count -1 do
        begin
          lbAusgabe.Items.Add(slTmp.Strings[k]);
        end;//for



except
end;//try


end;

Gruß
Holger