[Aristarh Dark]

Код:

var
  a,b:integer;
begin
  a:=pos('000',Memo1.Lines.Text);
  b:=pos('111',Memo1.Lines.Text);
  if (a*b = 0) or (a>b)  then
    begin
      ShowMessage('Labels is invalid! ERROR!');
      Exit;
    end;
  Delete(Memo1.Lines.Text,a+2,b-(a+2));
  Insert(Memo1.Lines.Text,Memo2.Lines.Text,a+2);
end;

примерно так, в константах мог ошибиться (ибо не проверял) там могут быть не двойки а что-то 2(+/-)1