Format Textu w Memo

Witam
Usiłuje napisać kod do wiadomości RSS. Kod działa dobrze jednak po załadowaniu wiadomości do memo na końcu pojawiają się informacje o stronie źródłowej np.
np.
"W górnych partiach Bieszczad zmala³o zagro¿enie lawinowe; jego stopieñ obni¿ono z trzeciego do drugiego w piêciostopniowej, rosn¹cej skali - poinformowa³ rano ratownik dy¿urny bieszczadzkiej grupy GOPR, Dariusz Czech.

wiêcej>> pogoda.wp.pl"

Moje pytanie jak usunąć cala herezje która co następuje po

poniżej kod.
Z góry dziękuje za pomoc.

 
const
  ADPXMLBLOG = 'http://pogoda.wp.pl/rss.xml';
var
  ADPLocalFile : TFileName;
  StartItemNode : IXMLNode;
  News : IXMLNode;
  STitle, sDesc, sLink : widestring;
begin
  LinkNewsa := TStringList.Create;
  TrescNewsa := TStringList.Create;
  ADPLocalFile := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'temp.adpheadlines.xml';
  Screen.Cursor:=crHourglass;
  try
    if not DownloadURLFile(ADPXMLBLOG, ADPLocalFile)  then
    begin
      log('Nie mogê pobrac wiadomosci RSS. Sprawdz polaczenie z internetem.',0);
      Exit;
    end;
    ListBox1.Clear;
    XMLDoc.FileName := ADPLocalFile;
    XMLDoc.Active:=True;
    StartItemNode:=XMLDoc.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item');
    News := StartItemNode;
    repeat
      sTitle := news.ChildNodes['title'].Text;
      sLink := news.ChildNodes['link'].Text;
      sDesc := news.ChildNodes['description'].Text;
      //add to list view
       ListBox1.Items.Add(STitle);
       TrescNewsa.Add(sDesc);
       news := news.NextSibling;
    until news = nil;
  finally
   DeleteFile(ADPLocalFile);
   Screen.Cursor:=crDefault;
  end;
end;

Moje pytanie jak usunąć cala herezje która co następuje po

Copy i AnsiIndexText.

var 
  s:string;//z tekstem
  p:Integer;
//...
  p:=Pos('<br />',s);
  if p>0 then Delete(s,p,MaxInt);