[@Rafa3L]

2 lmikle
Вот, только без проверки вылета из диапазона len

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
 i: integer;
 s: string;
begin
  s:= Edit5.Text; // := StringReplace(Edit5.Text,'abcd','',[rfReplaceAll]);
  for i:= Length(s) downto 1 do
   if s[i-3] + s[i-2] + s[i-1] + s[i] = 'abcd' then Delete(s, i-3, 4);
  Edit5.Text:= s;
end;