Eliminar cadena con salto de linea

[ecfisa]

Hola Miguel89 y bienvenido a los foros de Club Delphi.

Probá de este modo:

Código Delphi [-]
procedure EliminarTexto(Memo: TMemo; const Cad1,Cad2: string);
var
  i,Des: Integer;
begin
  Memo.SetFocus;
  Des:= Pos(Cad1, Memo.Lines.Text);
  Memo.SelStart:= Des;
  i:= Des;
  while Memo.Lines.Text[i] <> Cad2 do Inc(i);
  Memo.SelLength:= i-Des-1;
  Memo.SelText:= '';
end;

Un ejemplo con tu texto:

Código Delphi [-]
     EliminarTexto(Memo1,'(''CONFIGURATION', ')');

Resultado:

INSERT INTO CONFIG VALUES
('UPDATE','0072616e636865732f6c61737430392f7371007e000affffffff0000000000000000000000007400316874747 03a2f2f7570646174653465782e6a646f776e6c
6f616465722e6f72672f6272616e636865732f6c61737430392f787400064252414e43487078')
INSERT INTO CONFIG VALUES
()
INSERT INTO CONFIG VALUES('MAS DATOS',')

Un saludo.