Fjern html link tags

Jeg har en tekst string som har en masse tekst og i teksten er der også nogle html link tags som skal fjernes. kan ikke få det til at virker! den fjerner for meget.

Kode 

var
  RenTekst, Tekst: string;
  Pos1, pos2: Integer;
begin
tekst := 'Noget tekst her <a href="Link til web side">Klik her</a> noget mere tekst. <a href="En side mere">Klik igen</a>.';

  RenTekst := Tekst;

  Pos1 := Pos('<a href="', RenTekst);
  Delete(RenTekst, Pos1, Pos1 + 8); //Sletter <a href="   ?
        
  Pos2 := Pos('">', RenTekst);
  Delete(RenTekst, Pos2, Pos2 + 1); //Sletter ">   ?
    
  RenTekst := StringReplace(RenTekst, '</a>', '', [rfreplaceall, rfIgnoreCase]);
	//erstatter </a> med ingen ting (sletter)

  ShowMessage(RenTekst); 
end;   

[Redigeret d. 12/05-05 15:02:31 af Jakob]

Prøv følgende (har ikke lige testet men burde virke):

K := Pos('<a href="', DinString);
repeat
begin
    J := Pos('<a', DinString);
    I := Pos('">', DinString);
     Delete(DinString, J, I-J+2);
     L := Pos('</a>', DinString);
     Delete(DinString, L, L + 3);
     K := Pos('<a href="', DinString);
end;
until K = 0;
     Showmessage(DinString);

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

virker ikke helt

Output:
Noget tekst her Klik heref="En side mere">Klik igen</a>.

skal være:
Noget tekst her Klik her noget mere tekst. Klik igen.


edit: K never used

[Redigeret d. 12/05-05 17:32:14 af Jakob]

virker ikke helt

Output:
Noget tekst her Klik heref="En side mere">Klik igen</a>.

skal være:
Noget tekst her Klik her noget mere tekst. Klik igen.


edit: K never used

[Redigeret d. 12/05-05 17:32:14 af Jakob]

Fuck min fejl. Skal være sådan her:

K := Pos('<a href="', DinString);
repeat
begin
    J := Pos('<a', DinString);
    I := Pos('">', DinString);
     Delete(DinString, J, I-J+2);
     L := Pos('</a>', DinString);
     Delete(DinString, L, 4);
     K := Pos('<a href="', DinString);
end;
until K = 0;
     Showmessage(DinString);

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

det virker

men hvorfor siger den k never used?