Почему действия с RichEdit1 происходит, а с NewRichEdit - нет?

procedure TForm1.BoldClick(Sender: TObject);
    var
    NewRichEdit: TRichEdit;
begin
    NewRichEdit := TRichEdit.Create(nil);
    try
        RichEdit1.SelAttributes.Style:=[fsBold];
        NewRichEdit.SelAttributes.Style:=[fsBold];
    finally
        NewRichEdit.Free;
    end;
end;