Plikowa baza danych i ListView

Witam,
Mam taką baze danych:
nazwa|kod|typ|jm|spis|logo|cena

Otwieram ją, i wyświetlam pozycje na listBoxie - czymś takim:

function Explode(Ch: Char; s: string; index: Byte): string; // Johnny_Bit
type
  TTableString = array of string;
  function InternalExplode(Str: string; Divider: Char): TTableString;
  var
    i, j: Integer;
  begin
    j := 1;
    i := 1;
    while i <= length(str) do
    begin
      if (str[i] = Divider) or (i = length(str)) then
      begin
        if (i = length(str)) and (str[i] <> Divider) then
          Inc(i);
        SetLength(Result, High(Result) + 2);
        Result[High(Result)] := Trim(Copy(str, j, i - j));
        j := i + 1;
      end;
      Inc(i);
    end;
  end;
begin
  Result := InternalExplode(s, ch)[index];
end;

potem robie explodem oddzielanie pozycji:

 Readln(F1,S1);
 b:= Explode('|',S1,4);  //opis
 c:= Explode('|',S1,3);  //jm
 a:= Explode('|',S1,1);  //kod
 d:= Explode('|',S1,1);  //cena
 e:= Explode('|',S1,6);  //obrazek
 Label4.Caption :=a;     //kod
 Label5.Caption :=c;     //jm
 opis.Lines.Text:=b;     //opis
 Label1.Caption := d;    //cena
 Label6.Caption := e;    //obrazek
LI:=  main.ListView1.items.Add;
LI.Caption:= b;
LI.SubItems.Add(b);

Teraz po kliknięciu na ListBox chciałbym żeby program na podstawie wybranej pozycji z ListBox uzupełnił etykietke: name odpowienią daną z pliku...

Wie ktoś może jak to zrobić??

// Tag <d e="e" l="l" p="p" h="h" i="i"> !!! - Q