[icWasya]

заведи две переменные - pos1, pos2:Integer;
перепиши внутренность цикла вот так

Код:

begin
  pos1:=pos('class="wwt_cont">',Memo1.Lines[b]);
    if pos1<>0 then
     begin
        inc(k);
        pos2:= pos('<!-- wwc_bg -->',Memo1.Lines[b]);

        b1:=copy(Memo1.Lines[b],    pos1,  pos2 - pos1);

       Memo3.Lines.Add(b1); //<<==--
       Edit1.Text:=IntToStr(k) ;
      end;
end;

встань отладчиком помеченной строке и посмотри, чему что равно.