ANTICHAT - Показать сообщение отдельно

Я, как настоящий ламер ( потому что я тоже не силен в регулярках), написал бы что - то вроде этой процедуры:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
strText:string;
begin
strText:=memo1.text;
memo1.Text := '';
while pos('<a href=/users/',strText) <> 0 do begin
delete(strText,1,pos('<a href=/users/',strText));
memo1.Text := memo1.Text + copy(strText,pos('>',strText)+1,pos('<',strText)-pos('>',strText)-1)+#13#10;
end;
end;

Результат работы:

Код:

Studio 
Neopixel
Манкунианцы
Sanyamba 
OiOiOi
Nell
НОЛА
goshak
Шахтар 
Конотоп
FC Chita1978
oukb34rus
Olegan059
franc87
revun
Ace 
me
NEXSUS007
Goal4win
Palivo
DarkSithh
Big Pussy
lukin
Tezaur
FC Min-Vodi
Honda
Carlos 
Digolas
ну и тд =)...