[Andrey53]

Ну для данного примера, парсинг можно сделать следующим образом

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 text_pars,out_s:string;
begin
   text_pars:='<img src="115" h="14" w="14" /> <a title="" lst="Перелететь:Инфо планеты" lst_action="-JOIN ПлОхО=И=ОдИнОкО:GET #huyo2#usercur=7424930&a=channels_w hois&chanid=536444&">ПлОхО=И=ОдИнОк</a> [50] <br />';
   delete(text_pars,1,pos('&">',text_pars)+length('&">')-1);
   out_s:=copy(text_pars,1,pos('</a>',text_pars)-1);
   Caption:=out_s;
end;