Download Schleife mit ItemBox

[Hexla]

Huhu


Ich habe da ein Problem, ich versuche eine Seite zu downloaden (Also praktisch gesehen den Quelltext für eine auswertung, möchte mirn eigenes Addon basteln ) . Ich habe ein OnClick Event das den Selektierten Eintrag in die Schleife schickt. Das sieht wie folgt aus:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i: integer;
  se: String;
  FS:Tfilestream;
  URL:String;
begin
  for i := ListBox1.Items.Count - 1 downto 0 do
    if ListBox1.Selected[i] then
    begin
ListBox1.Items.Delete(i);
se :=inttostr(i);
URL:='http://wowhead.com/?npc=' + se;
FS:=Tfilestream.Create('DATASET/' + se + '.html',fmCreate);
IdHTTP1.Get(URL,FS);
FS.Free;
    end;
end;

Das beinhaltet: Eintrag löschen, Download setzten mit der i Selected, Downloaden und speichern.

Die ListBox1 beinhaltet nur pro eintrag eine ID, keine sonstiges Sachen. Wie bekomme ich es hin das er bei i statt die Zeilennnumer den Wert der Zeile ausspuckt?