Поиск и замена Listbox

[Aleksandr69]

Помогите что то я не пойму,нужно удалить из строки ListBox1 часть текста которая находиться в sos.

Вот исходная строка в ListBox1:

Номер заменен на
<a class="rttytyt" href="/list.aspx?num=65651760100&annn=1&ca tt=776">18858080100</a>

Нужно что бы осталось:

Номер заменен на 18858080100

procedure TForm1.Edit1Change(Sender: TObject);
 var
  s,sos,m,e:string;
  i:integer;
begin
  e:='Номер заменен';
  for i:=0 to cxListBox1.items.Count-1 do
  if pos(AnsiUpperCase(e),AnsiUpperCase(ListBox1.Items[i]))>0 then //нашел нужную строку 
    begin

     ListBox1.Selected[i]:=true; //выбрал ,не обязательно  
     s:=ListBox1.Items[i];
     sos:=copy(s,pos('">',s)+0,length(s)-pos('">',s)+0);
     sos:=copy(sos,1,pos('<',sos));
     sos:=copy(sos,1,length(sos)-0);

     Memo1.Lines.add(sos);  //тут то что нужно удалить из строки ListBox1 
    // exit;
    end;
end;

или я уже изначально пошел по неправильному пути ,и нужно сразу удалять из ListBox1?

[Don Karleone]

s:=ListBox1.Items[j];
I:=pos('>', s);
Delete(s, 1, I);
I:=pos('<', s);
Delete(s, I, Legth(s) - I);
ListBox1.Items[j]:=s

[Aleksandr69]

Сообщение от Don Karleone

Что-то я не понял. В memo добавляется 18858080100 а в ListBox1 вместо
<a class="rttytyt" href="/list.aspx?num=65651760100&annn=1&ca tt=776">18858080100</a> остается
<a class="rttytyt" href="/list.aspx?num=65651760100&annn=1&ca tt=776"></a>

ListBox1 изначально заполнен данными
------------------------------------------------
Вася
Петя
Маша
Номер заменен на<a class="rttytyt" href="/list.aspx?num=65651760100&annn=1&ca tt=776">5658080100</a>
Вася
Петя
Маша
Номер заменен на<a class="rttytyt" href="/list.aspx?num=6565660100&annn=1&ca tt=776">56550100</a>
Вася
Петя
Маша
Номер заменен на<a class="rttytyt" href="/list.aspx?num=656556100&annn=1&ca tt=776">1885806565</a>
-----------------------------------------------------

Вместо

Номер заменен на<a class="rttytyt" href="/list.aspx?num=65651760100&annn=1&ca tt=776">18858080100</a>

нужно чтобы осталось:

Номер заменен на 18858080100

Есть два варианта я так понимаю скопировать строку из ListBox1 вырезать то что ненужно и вставить на место или пройти циклом и удалить часть строки.

[Aleksandr69]

Люди Подскажите

[Don Karleone]

я же код вверху написал, вставь его в if

[Aleksandr69]

Сообщение от Don Karleone

s:=ListBox1.Items[j];
I:=pos('>', s);Delete(s, 1, I);
I:=pos('<', s);
Delete(s, I, Legth(s) - I);
ListBox1.Items[j]:=s

не пашет ошибка list index out of bounds (447) делал так

 var
  s,sos,m,e:string;
  i,j:integer;
begin
  e:='Номер заменен';
  for i:=0 to ListBox1.items.Count-1 do
  if  pos(AnsiUpperCase(e),AnsiUpperCase(ListBox1.Items[i]))>0 then
      s:=ListBox1.Items[i];
      j:=pos('>', s);
      Delete(s, 1, j);
      j:=pos('<', s);
      Delete(s, j, length(s) - j);
      ListBox1.Items[i]:=s;

[Don Karleone]

ну я надеюсь, отсутсвие begin...end после then это опечатка на форуме. В проге они присутствуют?

[Aleksandr69]

Сообщение от Don Karleone

ну я надеюсь, отсутсвие begin...end после then это опечатка на форуме. В проге они присутствуют?

да заметил уже спасибо все работает ,туплю