Posex und kein Plan :-(

[xineohp]

lade die Seite in eine tStringlistmyStrynglist.Text := temphtm und ersetze deine while Schleife durchFor i:=0 to myStringlist.Count-1 do dann kannst du mit myStringlist[i] auf die einzelnen Zeilen zugreifen.
(Vergiss aber nicht die Stringlist vorher zu erzeugen und anschließend wieder freizugeben)

Im Endefekt solltest du dann sowas haben:

Delphi-Quellcode:

var
  myStringlist: tStringlist;
  i: integer;
begin
  myStringlist := tstringlist.Create;
  myStrynglist.Text := temphtm;

  For i:=0 to myStringlist.Count-1 do
  begin
    // 
  end;  

  myStringlist.Free;
end;