<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 /> 

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;