Slet HTML link tag

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.


var
  RenTekst, Tekst: string;
  Pos1, pos2: Integer;
begin
tekst := 'Her er noget tekst og hvis du <a href="www.jubii.dk">Klikker her</a> så bliver du linket til  <a href="www.jubii.dk">jubii</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;