doppelte Einträge verhindern beim öffnen mit OpenDialog

[newuser01]

und wie sieht es aus wenn ich zb: ein ganzes Verzeichnis mit DirectoryListBox in die ListBox übernehme und dieses Verzeichnis 2 mal übernommen werden sollte (doppelt)?

Delphi-Quellcode:

procedure TfVerzeichnis.btnOKClick(Sender: TObject);
var
  I: Integer;
  slTmp: TStringList;
begin

slTmp := TStringList.Create;
slTmp.Clear;
btnOK.Font.Color := clRed;
btnOK.Caption := 'bitte warten...';
FindAllFiles(slTmp,DirectoryListBox1.Directory+'\','*.mp3', true, true, false);
btnOK.Font.Color := clBlack;
btnOK.Caption := 'OK';


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

slTmp.Free;
fVerzeichnis.Close;

end;

Gruß
Holger