[Decoding]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
   for i := 0 to Memo1.Lines.Count-1 do
      if Memo1.Lines[i] = 'Electronic_Arts' then
      begin
         Memo1.Lines.Delete( i );
         Break;
      end;
end;