listbox

[DM2005]

Hola a todo en el foro, tengo la siguiente duda, estoy trabajando en un proyecto donde trabajo con 3 listbox (listbox1, listbox2, listbox5), en ambos listbox, cargo 3 archivos .txt con diferentes informacion... hasta ahi todo bien, resulta que en el listbox5 cargo los items del archivo .txt, mostrando sin repetir los items, es decir que en el listbox2 y listbox5 cargo el mismo archivo .txt, y el listbox2 la propiedad visible: = False; pq quiero que aparezca los items sin repetir, y solo mostraria el listbox5, solo que cuando recorro el listbox5 donde no se repiten los items, de alguna manera sea igual al contenido de items en el listbox2, seria algo asi..

listbox2
01
01
01
02
02
03
03
03
03
04
04

listbox5
01
...
...
02
...
03
...
...

es decir que cuando hago doble click en el listbox5, en el item correspondiente, este sea igual al mismo item del listbox2.

Código Delphi [-]
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
  Temporal: TStringList;
begin
  Panel6.Visible := False;
  Panel7.Visible := True;
  if ListBox1.ItemIndex = 0 then
    begin
       ListBox2.Clear;
       ListBox2.Items.LoadFromFile('C:\IPCapitulo.txt');
       ListBox3.Items.LoadFromFile('C:\IPArquivo.txt');
       ListBox4.Items.LoadFromFile('C:\IPMaximizada.txt');
       ListBox5.Clear;
       Temporal:=TStringList.Create;
       Temporal.Sorted:=True;//La lista debe ser ordenada
       Temporal.Duplicates:=dupIgnore; // Igonorar los elementos repetidos
       Temporal.LoadFromFile('C:\IPCapitulo.txt');
       //Copiar desde Temporal hacia ListBox
       ListBox5.Items.AddStrings(Temporal);
       Temporal.Free;    end;

Código Delphi [-]
procedure TForm1.ListBox2DblClick(Sender: TObject);
begin
  Panel1.Visible := True;
  Panel6.Visible := False;
  Panel7.Visible := False;
  if ListBox2.ItemIndex <> -1 then
     begin
       Panel2.Caption := ListBox2.Items.Strings[ListBox2.ItemIndex];
       WebBrowser1.Navigate(ListBox3.Items.strings[ListBox2.ItemIndex]);
       ListBox4.ItemIndex := ListBox2.ItemIndex;
     end;
end

espero hber explicado bien,
desde ya gracias por la ayuda.
saludos.