[angvelem]

Мдя, кто тогда код писал при таких вопросах?

Код:

  YouMessage:=idhttp1.Get ('http://vkontakte.ru/id1');
  Mmo2.text := '';
  if (pos('<span class="online">', YouMessage) > 0) and (pos('</span>', YouMessage) > 0) then
  begin
    YouMessage := StringReplace(YouMessage, '<span class="online">', '', [rfReplaceAll]);
    YouMessage := StringReplace(YouMessage, '</span>', '', [rfReplaceAll]);
    Mmo2.text := YouMessage;
  end;

в следующий раз может ещё спеть и станцевать, голова только шапку носить, думать не нужно?
P.S. Ещё один не обдуманный вопрос и последуют санкции.