[Decoding]

В следующий раз думай лучше

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
   for i := 0 to Memo1.Lines.Count-1 do
      Memo1.Lines[i] := StringReplace( Memo1.Lines[i], Edit1.Text, '', [rfReplaceAll, rfIgnoreCase] );
end;