[Aristarh Dark]

Вот немного попроще:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Text := StringReplace( Memo1.Lines.Text, Edit1.Text, '', [rfReplaceAll, rfIgnoreCase] );
end;