Listbox1 + Caption +Listbox2 +Pfad

[horst]

hallo...ich brauche hilfe
ich habe 2 listboxen.
in listbox1 steht die caption für ein programm
und in listbox2 steht der programmpfad.
dann speichere ich beiden listboxen in zwei verschiedene dateien.

mein problem ist:
wenn ich listbox1 sortiert haben will (also sorted=true)
dann klappt das mit dem pfad zum programm nicht mehr.

Delphi-Quellcode:

//das ist das speichern 
procedure TForm2.Button2Click(Sender: TObject); 
begin 
if opendialog1.Execute= true then 
begin 
form1.listbox2.items.add(opendialog1.Filename); 
edit1.Text:= opendialog1.Filename; 
form1.listbox2.items.savetoFile(extractfilepath(application.exename)+ 'links.txt'); 
form1.listbox1.items.add(edit2.text); 
form1.listbox1.items.savetoFile(extractfilepath(application.exename)+ 'oben.txt'); 
//Button1.click; 
close; 
end; 
end; 

// das passiert beim klick in listbox1 

procedure TForm1.ListBox1DblClick(Sender: TObject); 
var 
  i: integer; 
  s: string; 
begin 
  for i := 0 to listbox1.items.count - 1 do 
  begin 
    s := listbox1.items[i]; 
    if ListBox1.Selected[i] then 
    begin 
      ShellExecute(Handle, 'open', PChar(Listbox2.items[i]), nil, nil, SW_SHOWNORMAL); 
    end; 
  end;