no añadir duplicados a listbox

[jonydread]

hola busque por el foro pero sin embargo no logro comprender al 100%
como evitar añadir archivos dos veces

lo que yo hago es cargarlos mediante opendialog

Código Delphi [-]
opendialog1.Execute;
for i:= 0 to Opendialog1.Files.Count-1 do
if fileexists(Opendialog1.Files[i]) and SameText(ExtractFileExt(Opendialog1.Files[i]),'.reg') then
 begin
 Listbox1.Items.Add(opendialog1.files[i]);
 label1.Caption:='Archivo(s) Cargado(s)!';

y he estado intentado con este codigo que no ubico muy bien mi fallo o si el codigo esta incompleto

Código Delphi [-]
procedure TForm.Button1Click(Sender: TObject);
var
 i,j:integer;
 cadena:string;
 encontrado:boolean;
begin
if Opendialog1.execute then
begin
for i:= 0 to Opendialog1.Files.Count-1 do
 cadena:= Opendialog1.Files[i];
 encontrado:=false;
 for j:=0 to listbox1.Items.Count-1 do
 if cadena = listbox1.items[j] then
 encontrado:=true
 else
 Listbox1.Items.Add (Opendialog1.Files[i]);
 end else
 abort;
end;

gracias!!