Wyciagnie danych z pliku html - pilne

witam
mam problem z wyciagniem danych z zrodła pliku html

mam taki ciag w pliku powtarzajacy sie x razy lecz inne dane
i chcialbym go rozdzielic przecinkami, by moc go potem wrzucic do list view
czyli
z takiego:

DIMM SDRAM 256MB BX 133 MHz
No Name
118.30
29+ / 37
dożywotnia

na taki:

DIMM SDRAM 256MB BX 133 MHz,No Name,118.30,29,37,dożywotnia

na razie robi mi to tak ze wyciagam tylko jedna pozycje i wygalda to tak:

">DIMM SDRAM 256MB BX 133 MHz

pozdrowienia i z gory dzieki za pomoc.
genius23

Listing:

var
i, p: Integer;
s: string;
begin
ListBox1.Clear;
begin
// nazwa - tutaj wyszukuje wszelkie nazwy
for i := 0 to Memo1.Lines.Count - 1 do
begin
//Kazda linijka w ktorej znajduje sie taki ciag ma byc czytana
if Pos('produkt.php?pid=', Memo1.Lines.Strings[i]) > 0 then

begin
  s := '';

  // czytaj dopuki nie znajdziesz takiego znaku

      for p := Pos('">', Memo1.Lines.Strings[i]) to
    Length(Memo1.Lines.Strings[i]) do
    if Memo1.Lines.Strings[i][p]  '!') > 0 do
   while Pos(s[Length(s)], '..;!)&]}?/') > 0 do
    Delete(s, Length(s), 1);
  // Add the Address to the list...
  //Gefundene Adresse in die Liste aufnehmen...
  ListBox1.Items.Add(s);
end;

end;

end;
end;

qrcze czy to ja mam takie tylko skomplikowane problemy czy co

;-(

twoj kod jest wielce problematyczny :P znaczy ze trzeba by to napisać od początku, aby był sens wycinania, w faq jest cos oznacznichach html, poczytaj

oki poradzilem sobie inaczej, wywalilem wszyskie znaczniki z kodu mtml i mam czysty txt tylko ze jeden pdo drugim

wlasnie tak:
DIMM SDRAM 128MB BX 133 MHz
No Name
67.20
13+ / 14
do┐ywotnia

DIMM SDRAM 128MB PC133 16Mx8
No Name
103.80
brak
do┐ywotnia

DIMM SDRAM 256MB BX 133 MHz
No Name
118.30
29+ / 37
do┐ywotnia

problem teraz z tym zeby to wszysko bylo po przecinku zeby mozna to bylo zaimportowac do bazy danych lub listview,

a poza tym na poczatku tego pliku i na koncu man niepotrzebne rzeczy ( tesksy) i program musialby wykrywac kiedy zacząć a kiedy skonczyc importowanie
jakies pomysly